Inhalt eines Strings herausschneiden

[Stevie]

Wie wär's hiermit? (Oder ist das langsamer?)

Delphi-Quellcode:

type TStringDynArray = array of string; // aus der Unit Types

function Tokenize(Text: string; Delimiter: Char; var Liste: TStringDynArray): string;
var
  StringList: TStringList;
  Count: Integer;
begin
  StringList := TStringList.Create;
  StringList.Delimiter := Delimiter;
  StringList.DelimitedText := Text;
  SetLength(Liste, StringList.Count);
  for Count := 0 to Pred(StringList.Count) do
    Liste[Count] := StringList[Count];
end;