[serbius]

Сообщение от Pyro

Код:

function Explode(text: String; separator: String=' '): TStringList;
begin
  text := StringReplace(text, #13#10, ' ', [rfReplaceAll]);
  text := StringReplace(text, separator, #13#10, [rfReplaceAll]);
  result := TStringList.Create;
  result.Text := text;
end;

спасибо, огромный прирост в скорости, примерно, процентов на 50.

Тему можно закрывать.