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