Die Explode Funktion ist in Delphi schon implementiert:
Delphi-Quellcode:
var
sl : TStringList;
i : Integer;
begin
sl := TStringList.Create;
sl.Delimiter := ' '; // Trenner der einzelnen "Strings"
sl.QuoteChar := '|'; // "Quotierung" der Strings
// hier wird das String separiert und Delphi macht alles für uns
sl.DelimitedText := '|123 abc| |yxz 987| |hinz und kunz 0192837465|';
// jetzt noch eine kleine Ausgabe
for i := 0 to sl.Count-1 do
ShowMessage(sl[i]); // oder sl.Strings[i]
// fertig, Freigeben nicht vergessen
sl.Free;
end;