Hilfe! Probleme beim Erstellen eines Telefonbuchs

[p80286]

Nachdem DeddyH sich einen Teil der Sourcen vorgenommen hat, will auch ich nicht zurückstehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f:file of dafeld;
  i:integer;
begin
   A1:=A1+1;
   dasatz[A1].Name:=Edit1.Text;
   dasatz[A1].Vorname:=Edit2.Text;
   dasatz[A1].Telefon:=Edit3.Text;
   AssignFile(f,'Datenbank');
   Rewrite(f);
   for i:=1 to 10 do
   Write(f,dasatz[i]);
   CloseFile(f);
end;

Du schleppst hier A1 als globale Variable mit Dir herum die irgendwo irgendwie bearbeitet/verwendet wird, das ist nicht so glücklich. Ein sprechender Name wie z.B. EingabeIndex wäre nicht schlecht.

Zumindestens diese Erweiterung würde Dich vor einer Fehlermeldung bewahren:

Delphi-Quellcode:

  A1:=A1+1;
  if A1<=10 then begin
    dasatz[A1].Name:=Edit1.Text;
    dasatz[A1].Vorname:=Edit2.Text;
    dasatz[A1].Telefon:=Edit3.Text;
  end;

Gruß
K-H