Split-Funktion in Delpi???

[sakura]

@BasicMaster:
Ein paar Probleme:

Code:

function Split(sString, sDelimeter:String):TStringList;
var Res:TStringList;
begin
Res := TStringList.Create;
[color=#ff0000]// was ist mit bereits vorhandenen Zeilenumbrüchen, sollten diese gebraucht werden?[/color]
[color=#ff0000]// string-replace gibt es erst ab D6 und ist EXTREM langsam[/color]
Res.Text := StringReplace(sString, sDelimeter, #13#10, [rfIgnoreCase, rfReplaceAll]);
Result := Res;
[color=#ff0000]// damit ist aber auch das Ergebnis gelöscht![/color]
Res.Free;
end;

......