Sign in Join
FPDoc Onlineexperiment

TCollection.AtDelete procedure

Member of TCollectionIn unit Objects

Delete item at certain position.

Declaration

pascal
procedure AtDelete(Index: Sw_Integer)

Description

AtDelete deletes the pointer at position Index in the collection. It doesn't call the object's destructor.

Errors

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

See also

Example: ex33

pascal
Program ex33;

{ Program to demonstrate the TCollection.AtDelete 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 AtDelete(Count-1);
  Writeln ('Freed all objects.');
  Dispose(C,Done);
end.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.