Bei Ausgrabungen habe ich das hier gefunden. Ich habe mir so eine Funktion für meine ersten Gehversuche mit 15 Jahren unter Rocky Mountain Basic (HP9845) geschrieben. Es macht genau das, was u.A. himitsu vorgeschlagen hat.
Delphi-Quellcode:
Function Split(Var S: String; Del: String): String;
Var
p: Integer;
Begin
p := pos(Del, S);
If p = 0 Then Begin
Result := s;
s := '';
End
Else Begin
Result := Copy(s, 1, p - 1);
s := Copy(s, p + length(Del), length(s));
End;
End;
Damit kann man -allerdings ziemlich unperformant- einen String sukzessive in seine Bestandteile zerlegen:
Delphi-Quellcode:
var
s : String;
begin
s:='Das,ist,ein,Satz,mit,Komma';
while s<>'' do writeln(Split(s,','));
End;
Nach dem ersten Aufruf stände in 'S' allerdings das vom TE gewünschte Ergebnis.
Und: Ja, ich werde mich mit Emba mal über den Methodennamen 'Split' ernsthaft unterhalten müssen. Ich war zuerst da, von wegen prior Art und so
