Danke auch dir. Nur bei dem destroy von
destructor TListe.destroy;
hasbe ich Probleme.
Aufgerufen wird er mit
unsereListe.destroy;
in
mainunit.pas, nachdem alles fertig ist.
Ich glaube es hat teilweise auch was mit dem anderen Destruktor
destructor TDatensatz.destroy;
zu tun. Sir Rufo half mir schon per PN, aber ich konnte keine wiederholte Zerstörung feststellen. Außerdem bin ich mir mit dem override sowie dem Unterschied von free/freeandnil/destoy nicht im Klaren. Wann benutze ich
override:
bei Destuktoren und wann nicht? Wann benutze ich
.Free
,
.FreeAndNil
und wann
.Destroy
?
Delphi-Quellcode:
destructor TListe.destroy;
var i:CARDINAL;
begin
if anzahl > 0 then
begin
for i := 1 to anzahl do liste[i].free;
anzahl := 0;
end;
NotA := false;
CompleteFile.free;
inherited;
end;
Delphi-Quellcode:
destructor TDatensatz.destroy;
begin
kennzeichen := '';
ort := '';
bundesland := '';
sonder := '';
inherited;
end;