[Pyro]

разбивает на слова по пробелам

PHP код:

function Split(s: string; c: char = ' '): TStringList;
begin
  s := StringReplace(s, c, #13#10, [rfReplaceAll]);
  while s <> StringReplace(s, #13#10#13#10, #13#10, [rfReplaceAll]) do
    s := StringReplace(s, #13#10#13#10, #13#10, [rfReplaceAll]);

  result := TStringList.Create;
  result.Text := s;
end 


;