Rekursives Freigeben einer TStringList // Compilerfehler

[Uwe Raabe]

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;