[Pyro]

PHP код:

function Split(s: string; c: char): string; overload;
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 := s;
end;
function List(s: string): TStringList;
begin
  result := TStringList.Create;
  result.Text := s;
end;
function Split(s: string; shit: string = ' ,.'): string; overload;
var i: integer;
begin
  result := s;
  for i := 1 to length(shit) do
    result := Split(result, shit[i]);
end;