Einzelnen Beitrag anzeigen

Caesar2012

Registriert seit: 25. Jan 2012
6 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Aufruf neuer Typen in anderen Units

  Alt 1. Feb 2012, 11:46
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;
  Mit Zitat antworten Zitat