Textdatei in verschiedene Variablen

[Wormid]

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;