String an bestimmtem Zeichen Splitten

[Alter Mann]

Hi,

auch wenn es nicht an den bisherigen Code anschließt, darf es so etwas sein?

Delphi-Quellcode:

function  StringSplit(input : String; SeperatorChar : Char) : TStringList;
var
  SL : TStringList;
  S1, S2 : String;
begin
  SL := TStringList.Create;
  s1 := input;
  while POS(SeperatorChar, S1) <> 0 do
  begin
    S2 := Copy(S1, 1, POS(SeperatorChar, S1) -1);
    SL.Add(S2);
    S1 := Copy(S1, POS(SeperatorChar, S1) +1, Length(S1));
  end;
  SL.Add(S1);
  Result := SL;
end;

Gruß

[Edit]
Ich glaub das war kontraproduktiv
[/Edit]