Split-Funktion in Delpi???

[Wormid]

Warum benutzt eigentlich niemand die Delphi-eigene Routine "ExtractStrings" zum splitten von Strings?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var s: String;
    Items: TStringList;
begin
  Items := TStringList.Create;
  s := 'text1$$text2$$text3';
  ExtractStrings(['$'], [], PChar(s), Items);
  Memo1.Text := Items.Text;
  Items.Free
end;

Gruß

Wormid

[edit=Christian Seehase]Delphi-Tag geschlossen Mfg, Christian Seehase[/edit]