Strings aufteilen (als Klasse)

[cruiser]

Da immer wieder nach dem Aufteilen von Strings gefragt wird hier mal meine Variante. Ich habe das ganze in eine Klasse verpackt, welche intern ein Array benutzt. Die Anzahl der Substrings wird mit PosEx ermittelt, welches ich aus der StrUtils.pas uhm geliehen habe. Ein Übertragen aller Werte in eine Stringlist o.ä. ist dabei genauso möglich wie Delimiter aus mehr als einem Zeichen.

Hier ein Beispiel:

Delphi-Quellcode:

var
  sp: TStrSplitter;
begin
  sp := TStrSplitter.Create(Edit1.Text, Edit2.Text); // Objekt erzeugen

  // lange Variante (z.B. fuer mehrfache Nutzung):
  // sp := TStrSplitter.Create;
  // sp.Execute(Edit1.Text, Edit2.Text);

  aAnzahl := sp.Count; // Anzahl der Teilstrings
  aItem := sp[1];    // zweiten Teilstring zuweisen
  // gleichbedeudend: aItem := sp.Parts[1];

  sp.AssignTo(ListBox1.Items); // Alle Teilstrings einer Stringlist hinzufügen
  sp.Free; // Objekt freigeben
end;

Viel Spass damit