| Class TFFile (unit FFileU) |
TComponent
pack records here
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure AttachFile;
function Delete(ri: longint): boolean;
destructor Destroy;
procedure DetachFile;
function Exist(ri: longint): boolean;
function Fetch(ri: longint; Buf: pointer): boolean;
function FetchPartial(ri: longint; Buf: pointer;
Start,Trans: word): boolean;
function Insert(ri: longint; Buf: pointer): boolean;
function Restore(ri: longint; Buf: pointer): boolean;
function RestorePartial(ri: longint; Buf: pointer;
Start,Trans: word): boolean;
procedure SetFFileName(Value: string);
procedure SetRecordLength(Value: word);| Properties |
property FileName : string
property RecordCount : longint
property RecordLength : word| Events |
| Variables |
ActiveRecs : longint;
DataF : file;
FAttached : boolean;
FFileName : string;
FRecordCount : longint;
FRecordLength : word;
RecordLen : word;| Constructors |
constructor Create(AOwner: TComponent);FFile methods
| Functions |
procedure AttachFile;
function Delete(ri: longint): boolean;
destructor Destroy;
procedure DetachFile;Assume the worst
function Exist(ri: longint): boolean;
function Fetch(ri: longint; Buf: pointer): boolean;
function FetchPartial(ri: longint; Buf: pointer;
Start,Trans: word): boolean;
function Insert(ri: longint; Buf: pointer): boolean;See if it's deleted.
function Restore(ri: longint; Buf: pointer): boolean;
function RestorePartial(ri: longint; Buf: pointer;
Start,Trans: word): boolean;
procedure SetFFileName(Value: string);The file header is always the first 6 bytes in the file. The fields are: ActiveRecs: The number of records in the file not counting deleted ones. This may be smaller than the filesize. RecordLen: The length of the records. Set by the CreateFFile Wizard. } {============= Set property routines ==================
procedure SetRecordLength(Value: word);| Properties |
property FileName : string
property RecordCount : longint
property RecordLength : word| Events |
| Variables |
ActiveRecs : longint;
DataF : file;
FAttached : boolean;
FFileName : string;
FRecordCount : longint;
FRecordLength : word;
RecordLen : word;Number of active records