TObjectList und Delete

[Sir Rufo]

Zitat von Popov:

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

Somit wäre der Punkt bestätigt.

Öh, ein Klick und Blick hätte das auch verraten:

Delphi-Quellcode:

function TList.Remove(Item: Pointer): Integer;
begin
  Result := RemoveItem(Item, TList.TDirection.FromBeginning);
end;

function TList.RemoveItem(Item: Pointer; Direction: TDirection): Integer;
begin
  Result := IndexOfItem(Item, Direction);
  if Result >= 0 then
    Delete(Result); // <-- ja, da isses ja
end;