Copy Pos Delete - Bin auf dem Holzweg...

[Rackergen2]

Delphi-Quellcode:

function Splitoff(Text, Trennzeichen: string): TStringlist;
var
  i: Integer; //i: Position des Trennzeichens
begin
  Result:=TStringlist.Create;
  while Text<>'' do
  begin
    i:=pos(Trennzeichen, Text); //Position des Trennzeichens
    if i=0 then //gibt es noch Trennzeichen?
      i:=length(Text)+1; //gesamten Text kennzeichenen
    Result.add(copy(Text, 1, i-1)); //Bis kurz vor dem Trennzeichen
    Delete(Text, 1, i-1+length(Trennzeichen)); //Trennzeichen mitlöschen, bei nicht Vorhandensein kein Fehler
  end;
end;

Könnte bei größeren Datenmengen langsam sein, nicht auf große Datenmengen getestet...