Copy Pos Delete - Bin auf dem Holzweg...

[Nightshade]

Delphi-Quellcode:

function split(s:string; splitchar : char) : TStrings;
var a : integer;
  tmp : string;
begin
  if NOT assigned(result) then exit;
  result := TStringlist.create;
  tmp := s;
    a := pos(splitchar,tmp);
  while a > 0 do begin
    delete(tmp,a,1);
    insert(#13#10,tmp,a);
    a := pos(splitchar,tmp);
  end;
  result.Text := tmp;
end;

Schön kurz