Textdatei_anzeigen

[lorenz]

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.