String.Split Methode Delimiter mehrmals vorhanden

[Dejan Vu]

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