Wie wäre es, wenn du erst einmal etwas versuchst und zeigst was du hast und wo du nicht weiterkommst?
Na gut, wenn es denn | als Trennzeichen sein soll, dann muss eben das so festgelegt werden.
Delphi-Quellcode:
var
FileContents: TStringList;
begin
FileContents := TStringList.Create;
try
FileContents.NameValueSeparator := '|';
FileContents.LoadFromFile(Anwendungsdatenverzeichnis + 'Verlauf.txt');
for i := 0 to FileContents.Count - 1 do
begin
ShowMessage(FileContents.Names[i]);
ShowMessage(FileContents.ValueFromIndex[i]);
end;
finally
FileContents.Free;
end;
end;