i := STRPOS(AllValues,',');
iPlace := 1;
WHILE i>0 DO BEGIN
arValues[iplace] := COPYSTR(AllValues,1,i-1);
AllValues := COPYSTR(AllValues,i+1);
iPlace+=1;
i := STRPOS(AllValues,',');
END;
arValues[iplace] := AllValues;
EXIT(arValues[SelectedValue]);
Then I call
t := GetOptionString(Fieldref.OptionCaption,iSelectedVal);
i := STRPOS(AllValues,',');
iPlace := 1;
WHILE i>0 DO BEGIN
arValues[iplace] := COPYSTR(AllValues,1,i-1);
AllValues := COPYSTR(AllValues,i+1);
iPlace+=1;
i := STRPOS(AllValues,',');
END;
arValues[iplace] := AllValues; //EXIT(arValues[SelectedValue]);
EXIT(arValues[SelectedValue+1]); //Should be this of course
Comments
t := Format(Fieldref_lr);
it crashes Navision.
I fixed the 'easy' way.
GetOptionString(AllValues : Text[1024];SelectedValue : Integer) : Text[50]
i := STRPOS(AllValues,',');
iPlace := 1;
WHILE i>0 DO BEGIN
arValues[iplace] := COPYSTR(AllValues,1,i-1);
AllValues := COPYSTR(AllValues,i+1);
iPlace+=1;
i := STRPOS(AllValues,',');
END;
arValues[iplace] := AllValues;
EXIT(arValues[SelectedValue]);
Then I call
t := GetOptionString(Fieldref.OptionCaption,iSelectedVal);
GetOptionString(AllValues : Text[1024];SelectedValue : Integer) : Text[50]
i := STRPOS(AllValues,',');
iPlace := 1;
WHILE i>0 DO BEGIN
arValues[iplace] := COPYSTR(AllValues,1,i-1);
AllValues := COPYSTR(AllValues,i+1);
iPlace+=1;
i := STRPOS(AllValues,',');
END;
arValues[iplace] := AllValues;
//EXIT(arValues[SelectedValue]);
EXIT(arValues[SelectedValue+1]); //Should be this of course