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?