Skip to content

    TCollection.AtFree

    Free an item at the indicates position, calling it's destructor.

    Declaration

    Source position: objects.pp line 463

    procedure TCollection.AtFree(Index: Sw_Integer);

    Description

    AtFree deletes the item at position Index in the collection, and calls the item's destructor if it is not Nil.

    Errors

    If Index isn't valid then Error is called with CoIndexError.

    See also

    Name Description
    TCollection.Free Free item from collection, calling it's destructor.
    TCollection.AtDelete Delete item at certain position.

    Example

    Program ex32;

{ Program to demonstrate the TCollection.AtFree method }

Uses Objects,MyObject; { For TMyObject definition and registration }

Var C : PCollection;
    M : PMyObject;
    I : Longint;

begin
  Randomize;
  C:=New(PCollection,Init(120,10));
  For I:=1 to 100 do
    begin
    M:=New(PMyObject,Init);
    M^.SetField(I-1);
    C^.Insert(M);
    end;
  Writeln ('Added 100 Items');
  With C^ do
    While Count>0 do AtFree(Count-1);
  Writeln ('Freed all objects.');
  Dispose(C,Done);
end.