Oder Du benutzt die Delphi-Funktion "ExtractStrings", die irgendwie kaum jemand zu kennen scheint
(zumindestens ab Delphi 5 gibt es die glaube ich).
Delphi-Quellcode:
var S: String;
Items: TStringList;
Count: Integer;
begin
S := '1001|729|999|500000|0'; // Der Beispielstring...
Items := TStringList.Create;
// Delphi-eigene Funktion, gibt Anzahl der Items als Result zurück!
Count := ExtractStrings(['|'], [], PChar(S), Items); // Count nur zur Demo, ist hier ungenutzt.
// Der Zugriff funktioniert dann so: (Beispiel)
Edit1.Text := Items[2]; // gibt '999' zurück
Items.Free;
end;
