| Class TThings (unit Childwin) |
TObject
| Constructors |
constructor Create(OnDestroyFunc: TThingDestroyer);| 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;