Listview CommaText mit Leerzeichen

[marabu]

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