Hilfe! Probleme beim Erstellen eines Telefonbuchs

[DeddyH]

Zitat:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var //entweder Variablen deklarieren oder Zeile löschen


begin
 A2:=A2+1;
 Edit4.Text:=dasatz[A2].Name;
 Edit5.Text:=dasatz[A2].Vorname;
 Edit6.Text:=dasatz[A2].Telefon;

end;
   
end; //Dies end ist zuviel

procedure TForm1.Button3Click(Sender: TObject);
begin
  AssignFile(f,'Datenbank.dat');
  Reset(F);
  For i [1..10] do  //die richtige Syntax hast Du ja beim Button 1 verwendet, wieso nicht hier?
  Read(F,dafeld[i]);
  closeFile(f);
 end;