Hi ABC!
Ich würde halt die Datei in eine Stringliste (
TStringList) laden, und dann dein Label1 gleich der ersten Zeile der Stringliste setzen (
Liste.Strings[0]) und dasselbe mit dem zweiten Label und der zweiten Zeile machen.
Also:
Delphi-Quellcode:
procedure From1.Button1.Click(Sender: TObject);
var dateiname: string;
liste: TStringlist;
begin
liste:= TStringList.Create;
dateiname:='pfad\test.txt';
liste.LoadFromFile(dateiname);
Label1.Text:=liste.Strings[0];
Label2.Text:=liste.Strings[1];
Liste.Free;
end;
MfG
Lorenz
Edit: OK, halt so im Prinzip, ohne Fehler abzufangen.