Zitat von
dazon:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject); // übertragung von edit in array
var i : Integer;
begin
assignfile(datei, 'Datenbank.dat');
rewrite(datei);
for i := 1 to 100 do begin
adresse[i].name := ename.text;
adresse[i].vorname := evorname.text;
adresse[i].strasse := estrasse.text;
{usw}
Write(datei, adresse[i]); // speichern der array daten in datei
end;
end;
Sei gegrüßt als Neuling. 8) Erstens fehlt nach der for-schleife ein close, also ist nicht die ganze Datei gespeichert, oder gar nichts. Und durch das rewrite machst du die Datei beim Start sofort wieder leer, die wird dadurch nämlich einfach überschrieben. Das ist der Hauptfehler.
P.S.: Ah, da ist noch ein wichtiger Kommentar durchgerutscht, der Dir sicherlich nicht hilft. Gehe in Deinem Text auf "Delphi-Source", füge dann den Code ein und dann wieder auf "Delphi-Source*". Danach schreibst Du normal weiter.