Class TIDGen (unit IDGenU)

Inherits from

TComponent

[ack redords here

Constructors


constructor Create(AOwner: TComponent);

================= Methods of TIDGen ======================


Functions

procedure AttachFile;


destructor Destroy;


procedure DetachFile;

Assume the worst

function Pop: longint;


procedure Push(rid: longint);


procedure SetIDFileName(Value: string);

============ Setting properties =======================

Properties

property FileName : string


Events

Variables

FAttached : boolean;


FFileName : string;


FIDFile : file of longint;



Constructors


constructor Create(AOwner: TComponent);

================= Methods of TIDGen ======================


Functions


procedure AttachFile;


destructor Destroy;


procedure DetachFile;

Assume the worst


function Pop: longint;


procedure Push(rid: longint);


procedure SetIDFileName(Value: string);

============ Setting properties =======================


Properties


property FileName : string


Events


Variables


FAttached : boolean;


FFileName : string;


FIDFile : file of longint;