Hallo an alle, ich bin dabei ein weiteres Adressbuch zu programmieren. Bei der ersten Version habe ich die Daten in eine Datei speichern lassen, die danach mit dem Editor lesbar war. Hier der Quelltext dazu:
Delphi-Quellcode:
procedure TForm1.Speichern1Click(Sender: TObject);
var Datf:File of TDaten;
Daten1:TDaten;
begin
aenderung:=false;
Edit1.Clear;
if (dateiname='')
then begin
Speichernunter1Click(Sender);
end
else begin
if (anfang.nachfolger <> ende)
then begin
lauf:=TKnoten.Init;
Assignfile(Datf,dateiname);
Rewrite(Datf);
lauf:=anfang;
repeat lauf:=lauf.nachfolger;
daten1:=lauf.Daten;
write(Datf,daten1);
until (lauf.nachfolger=ende);
closefile(Datf);
end;
end;
end;
Mein Problem ist, dass er mir immer eine Fehlermeldung bringt, und zwar oben bei dem Festlegen der Variable Datf:File of TDaten... "Typ 'TDaten' benötigt Finalization - nicht im Dateityp erlaubt" Diese Meldung wird mir ausgegeben, allerdings hat genau dieser Code bei meinem ersten Adressbuch funktioniert. Was ist da los?
Da ich allerdings auf eine andere Art des speicherns umsteigen möchte, würde ich mich freuen, wenn mir noch jemand einen Tipp dazu gibt, wie ich z.B. eine Datei erstelle, die später in Excel eingelesen wird.
Mfg arest