Rekursives Freigeben einer TStringList // Compilerfehler

[DeddyH]

Delphi-Quellcode:

destructor TStringTree.Destroy;
var
  i: Integer;
begin
  for i := 0 to Count-1 do 
    Objects[i].Free;
  inherited;
end;

Sollte dasselbe bewirken, nur kürzer.

[Delphi.Narium]

Delphi-Quellcode:

destructor TStringTree.Destroy;
var
  i: Integer;
begin
  for i := 0 to Count - 1 do FreeAndNil(Objects[i]);
end;

Ohne die Abfrage, ob's nun 'ne TStringList ist oder nicht, hat es den Vorteil, dass alle Objekte freigegeben werden und nicht nur die Stringlisten. Spart (vermutlich) das eine oder andere Speicherleck ;-)

[Caps]

Ok, aber wenn man nur den Destruktor von TObject aufruft, dann wird doch der Baum nicht rekursiv freigegeben?

[Caps]

Zitat:

Zitat von Delphi.Narium (Beitrag 1467421)

Ohne die Abfrage, ob's nun 'ne TStringList ist oder nicht, hat es den Vorteil, dass alle Objekte freigegeben werden und nicht nur die Stringlisten. Spart (vermutlich) das eine oder andere Speicherleck ;-)

Aber in #19 gebe ich doch alle Objekte frei.

[DeddyH]

Genau deshalb soll der Destruktor grundsätzlich überschrieben werden und nicht verdeckt. Probier es doch einfach mal aus.

[Caps]

Zitat:

Zitat von Uwe Raabe (Beitrag 1467416)

Das geht auch einfacher:

Delphi-Quellcode:

destructor TStringTree.Destroy;
var
  i: Integer;
begin
  for i:=0 to Count-1 do begin
    Objects [i].Free;
    Objects [i] := nil;
  end;

  inherited;
end;

Aber wird bei Objects [i].Free nicht nur der Destruktor von TObject aufgerufen?
Es soll ja aber mein Destruktor aufgerufen werden. Warum muss ich da nicht casten?

[Caps]

Zitat:

Zitat von DeddyH (Beitrag 1467426)

Genau deshalb soll der Destruktor grundsätzlich überschrieben werden und nicht verdeckt. Probier es doch einfach mal aus.

Achso, es gibt dann in der ganzen Hierarchie nur noch exakt einen Destruktor?
Das wusste ich nicht. Ok, dann macht es Sinn :). Man lernt nie aus.

[Uwe Raabe]

Zitat:

Zitat von Delphi.Narium (Beitrag 1467421)

Delphi-Quellcode:

destructor TStringTree.Destroy;
var
  i: Integer;
begin
  for i := 0 to Count - 1 do FreeAndNil(Objects[i]);
end;

Es fehlt nicht nur der Aufruf von inherited, sondern unter 10.3 und älter compiliert es gar nicht.

Der Code von DeddyH ist vollkommen ausreichend.

Zitat:

Zitat von DeddyH (Beitrag 1467418)

Delphi-Quellcode:

destructor TStringTree.Destroy;
var
  i: Integer;
begin
  for i := 0 to Count-1 do 
    Objects[i].Free;
  inherited;
end;

Zitat:

Zitat von Caps (Beitrag 1467427)

Aber wird bei Objects [i].Free nicht nur der Destruktor von TObject aufgerufen?
Es soll ja aber mein Destruktor aufgerufen werden. Warum muss ich da nicht casten?

Free ruft Destroy auf und das ist

Delphi-Quellcode:

virtual

.

[Caps]

Ok, ich glaube da komme ich an die Grenzen meiner OOP-Kenntnisse ^^.
Es gibt also nicht nur ein Destroy, weil inherited ja ein Vorfahr-Destroy aufruft, oder?
Ich glaube jetzt bin ich verwirrter als vorher :shock:

[DeddyH]

Virtuelle und dynamische Methoden können überschrieben werden. Wenn eine solche Methode einer Instanz aufgerufen wird, wird die Virtual Method Table (VMT) durchlaufen, ausgehend von der Klasse der Instanz in der Hierarchie aufsteigend, bis eine Implementation gefunden wird. Die wird dann abgearbeitet. Normalerweise möchte man die Methode aber nicht komplett ersetzen, sondern nur erweitern, weswegen man dann inherited aufruft, um die nächste Implementation in den höher gelegenen Klassen auszuführen.