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
