| Class TIDGen (unit IDGenU) |
TComponent
[ack redords here
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure AttachFile;
destructor Destroy;
procedure DetachFile;
function Pop: longint;
procedure Push(rid: longint);
procedure SetIDFileName(Value: string);| 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;