.txt lesen/schreiben

[Klaus01]

Guten Morgen,

Delphi-Quellcode:

procedure TForm1.btn_lesenClick(Sender: TObject);
var lesen: TStringList;
begin
  lesen := TStringList.Create; //hier erstellst Du eine StringList Instance
  // es wird aber nichts in die Liste eingelesen
  lbl_nachr.Caption := lesen[0];  // hier versuchst Du aus der List zu lesen
  lesen.Free;
end;

logischer wäre es so:

Delphi-Quellcode:

procedure TForm1.btn_lesenClick(Sender: TObject);
var lesen: TStringList;
begin
  lesen := TStringList.Create;
  lesen.loadFromFile(....);
  if lesen.count > 0 then
    lbl_nachr.Caption := lesen[0];
  lesen.Free;
end;

Grüße
Klaus