TIfList

Unit: ifs_utl.pas
TIfList is used to store pointers. It does not destroy them when you remove of clear them.

TIfList = {$IFDEF CBUILDER}class{$ELSE}object{$ENDIF}
function Count: LongInt;
Return the number of items in the list.

function GetItem(Nr: LongInt): Pointer;
Return item no (nr)

procedure SetItem(Nr: LongInt; P: Pointer);
Set item no (nr)

procedure Add(P: Pointer);
Add an item.

procedure Remove(P: Pointer);
Remove item P.

procedure Delete(Nr: Longint);
Remove item no (nr)

procedure Clear;
Clear the list.

constructor Create;
Create the list. Must be called also in object mode.

destructor Destroy; {$IFDEF CBUILDER}Override; {$ENDIF}
Destroy the list. Must be called also in object mode.

end;