Hallo,
wenn der Text (CommaText) zuerst kompatibel gemacht wird, dann kann der Code beibehalten werden:
Delphi-Quellcode:
function CommaText(const text: string; delimiter: Char = ','): string;
var
s: TStrings;
begin
s := TStringList.Create;
try
Explode(text, delimiter, s);
Result := s.CommaText;
finally
s.Free;
end;
end;
Die verwendete Funktion Explode() findest du dort:
klick
Grüße vom marabu