Forum: Object-Pascal / Delphi-Language
by shmia,
13. Mai 2009
destructor TLivetrack.destroy;
begin
self.FFTP.Free;
self.FHTTP.free;
//inherited free; // Falsch
inherited; // Richtig
end;
Forum: Object-Pascal / Delphi-Language
by shmia,
13. Mai 2009
Du übergibst nil als Owner:
self.FFTP := TFTP.Create(nil);
und stellst im Destruktor sicher, dass das eingebettete Objekt FFTP auch wieder freigeben wird.
Dein Destruktor darf nicht Free heisen, sondern Destroy.
Ganz wichtig ist auch die Angabe von Override.
destructor Destroy;override; // Standard deklaration des Destruktors
destructor TLivetrack.Destroy;
begin
FFTP.Free;
//...