Class TFFile (unit FFileU)

Inherits from

TComponent

pack records here

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.

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


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