TCollection.AtDelete
Delete item at certain position.
Declaration
Source position: objects.pp line 451
default
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
Name | Description |
---|---|
TCollection.Delete | Delete an item from the collection, but does not destroy it. |
Example
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.