Ich habe hier einen ziemlich ähnlichen code... etwas älter und weiß momentan nicht ob er korrekt läuft...
Delphi-Quellcode:
function SplitString(WasSuchen,WorinSuchen : String) : TStringList;
var
Stelle : integer;
begin
Result := TStringList.Create;
Stelle := 1;
if not (Worinsuchen[Length(WorinSuchen)] = WasSuchen) then WorinSuchen := WorinSuchen+WasSuchen;
while Length(WorinSuchen) > 0 do if WorinSuchen[stelle] = WasSuchen then
begin
Result.Add(Copy(WorinSuchen,1,Stelle-1));
WorinSuchen := copy(WorinSuchen,Stelle+1,length(WorinSuchen));
Stelle := 1;
end else inc(Stelle);
end;