Class TThings (unit Childwin)

Inherits from

TObject

Constructors


constructor Create(OnDestroyFunc: TThingDestroyer);

* TThings Class *} //////////////////////////////////////////////////////////////////////////////// // TThings // This class implements a very basic double-entry list with auto-free feature // (throug the OnDestroy event).


Functions

procedure Add(Index: Integer; Thing: Pointer);


procedure Clear;


procedure Delete(Index: Integer);


destructor Destroy;


function IndexExists(Index: Integer): Boolean;


function GetCount: Integer;


function GetThings(Index: Integer): Pointer;


procedure SetThings(Index: Integer; Thing: Pointer);


Properties

property Count : Integer


property Things : Pointer


Events

event OnDestroy : TThingDestroyer


Variables

FIndexs : TList;


FOnDestroy : TThingDestroyer;


FThings : TList;



Constructors


constructor Create(OnDestroyFunc: TThingDestroyer);

* TThings Class *} //////////////////////////////////////////////////////////////////////////////// // TThings // This class implements a very basic double-entry list with auto-free feature // (throug the OnDestroy event). //


Functions


procedure Add(Index: Integer; Thing: Pointer);


procedure Clear;


procedure Delete(Index: Integer);


destructor Destroy;


function IndexExists(Index: Integer): Boolean;


function GetCount: Integer;


function GetThings(Index: Integer): Pointer;


procedure SetThings(Index: Integer; Thing: Pointer);


Properties


property Count : Integer


property Things : Pointer


Events


event OnDestroy : TThingDestroyer


Variables


FIndexs : TList;


FOnDestroy : TThingDestroyer;


FThings : TList;