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