Stringübergabe dauert sehr lange wer kann helfen ?

[marabu]

Geht auch so:

Delphi-Quellcode:

function ItemsToStr(s: TStrings): string;
var
  i: integer;
begin
  Result := s.CommaText;
  for i := 1 to Length(Result) do
    if Result[i] = ',' then
      Result[i] := ' ';
end;

Aber performant geht anders...

marabu