Clear von TList überschreiben mit Objekten

[Phantom1]

Zitat von DGL-luke:

Eine TList macht glaube ich nur ein Dispose beim Clear. Das heißt, hat man Objekte drin, dann gibts n Speicherleck, wenn man die nicht zuvor freigibt.

Ja, aber Luckie gibt ja die Objekte direkt frei, von daher gibt es keine speicherlecks:

Delphi-Quellcode:

procedure TPageCollection.Clear;
var
  i: Integer;
begin
  for i := FInnerList.Count - 1 downto 0 do
  begin
    TObject(FInnerList.Items[i]).Free;
  end;
  FInnerList.Clear;
end;