Delphi-Quellcode:
function DataText22_OnGetText(Self: TRaveDataText; var Value: string);
var
sTempText : String;
iTextLaenge : Integer;
i : Integer;
begin
iTextLaenge := length(Value);
i := 1;
sTempText := '';
while (i <= iTextLaenge) and (Value[i] <> '$') do begin <-- Error :wall:
sTempText := sTempText + Value[i];
i := i + 1;
end while;
if sTempText = '' then
Value := '';
else begin
i := 1;
sTempText := '';
while i <= iTextLaenge do begin
if Value[i] = '$' then
Value[i] := '';
end if;
end while;
end if;
end OnGetText;
Was will der nur von mir?
