[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Release all objects from the collection.
Source position: objects.pp line 409
procedure TCollection.FreeAll; |
FreeAll calls the destructor of each object in the collection. It doesn't release any memory occumpied by the collection itself, but it does set Count to zero.
|
Delete all elements from the collection. Objects are not destroyed. |
|
|
Destroy a non-nil item. |
Program ex28; { Program to demonstrate the TCollection.FreeAll 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.'); C^.FreeAll; Writeln ('Freed all objects.'); Dispose(C,Done); end.
lazarus-ccr.sourceforge.net |