TObjectList und Delete

[Popov]

Danke, wollte gerade schreiben, dass laut dem Beispiel Remove Capacity auch nicht reduziert.

Delphi-Quellcode:

var
  ol: TObjectList;
  icon: TIcon;
  i: Integer;
begin
  ol := TObjectList.Create;

  for i := 1 to 5 do
  begin
    icon := TIcon.Create;
    ol.Add(Icon);
  end;
  ShowMessage(Format('Count: %d, Capacity: %d', [ol.Count, ol.Capacity]));

  for i := 1 to 5 do ol.Remove(ol.Items[0]);
  {for i := 1 to 5 do ol.Delete(0);}
  ShowMessage(Format('Count: %d, Capacity: %d', [ol.Count, ol.Capacity]));

  ol.Free;
end;

Somit wäre der Punkt bestätigt.

Das mit Notify gucke ich mir jetzt mal an. Ich dachte mir zwar etwas in die Richtung, aber...