Rekursives Freigeben einer TStringList // Compilerfehler

[Caps]

Der Vollständigkeit halber meine jetzige Lösung, falls jemand ein ähnliches Problem hat:

Neuer Typ:

Delphi-Quellcode:

TStringTree = class(TStringList)
  public
    destructor Destroy; override;
end;

Und hier der Destruktor:

Delphi-Quellcode:

destructor TStringTree.Destroy;
var
  i: Integer;
begin
  for i:=0 to Count-1 do begin
    if Objects [i] <> nil then begin
      if Objects [i] is TStringTree then
        TStringTree(Objects [i]).Free
      else
        Objects [i].Free;
      Objects [i] := nil;
    end;
  end;

  inherited;
end;

Approved?

lg Caps