Class TTextTable (unit TxtTable)

Inherits from

TDataSet

TTextTable - descedant of TDataSet, implements simple text file based dataset

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


function FindKey(const KeyValues: array of const): Boolean;

procedure TTextTable.

function AllocRecordBuffer: PChar;


procedure DefineProperties(Filer: TFiler);

procedure DataEvent(Event: TDataEvent; Info: Longint); override;

procedure FreeRecordBuffer(var Buffer: PChar);


procedure GetBookmarkData(Buffer: PChar; Data: Pointer);


function GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;


function GetFieldData(Field: TField; Buffer: Pointer): Boolean;


function GetRecNo: Integer;


function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult;


function GetRecordCount: Integer;


function GetRecordSize: Word;


procedure InternalAddRecord(Buffer: Pointer; Append: Boolean);


procedure InternalClose;

FCurRec := -1;

procedure InternalDelete;


procedure InternalFirst;


procedure InternalGotoBookmark(Bookmark: Pointer);

BookMarks

procedure InternalHandleException;


procedure InternalInitFieldDefs;


procedure InternalInitRecord(Buffer: PChar);


procedure InternalLast;


procedure InternalOpen;


procedure InternalPost;


procedure InternalSetToRecord(Buffer: PChar);


function IsCursorOpen: Boolean;

MessageDlg( 'Finish: DestroyFields', mtWarning, [mbOk], 0 );

procedure SetBookmarkData(Buffer: PChar; Data: Pointer);


procedure SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);


procedure SetFieldData(Field: TField; Buffer: Pointer);


procedure SetRecNo(Value: Integer);


function GetDChar : char;


procedure ReadFld( Reader: TReader );

TextTable Methods

procedure SetDChar( FDivCh : char );


procedure WriteFld( Writer: TWriter );


Properties

property Active :


property AfterCancel :


property AfterClose :


property AfterDelete :


property AfterEdit :


property AfterInsert :


property AfterOpen :


property AfterPost :


property AfterScroll :


property BeforeCancel :


property BeforeClose :


property BeforeDelete :


property BeforeEdit :


property BeforeInsert :


property BeforeOpen :


property BeforePost :


property BeforeScroll :


property DivChar : char


property FileName : string


property KeepData : Boolean


Events

event OnCalcFields :


event OnDeleteError :


event OnEditError :


event OnNewRecord :


event OnPostError :


Variables

FCurRec : Integer;


FData : TStrGrid;


FFileName : string;


FFldNames : TStrings;


FFldOffs : PInteger;


FKeepDataInMem : Boolean;


FLastBookmark : LongInt;


FRecBufSize : Integer;


FRecInfoOfs : Integer;


FRecSize : Integer;


FSaveChanges : Boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


function FindKey(const KeyValues: array of const): Boolean;

procedure TTextTable.DataEvent(Event: TDataEvent; Info: Longint); begin MessageDlg( 'Data Event catched', mtWarning, [mbOk], 0 ); inherited DataEvent(Event, Info); MessageDlg( '... and passed :(', mtWarning, [mbOk], 0 ); end;


function AllocRecordBuffer: PChar;


procedure DefineProperties(Filer: TFiler);

procedure DataEvent(Event: TDataEvent; Info: Longint); override;


procedure FreeRecordBuffer(var Buffer: PChar);


procedure GetBookmarkData(Buffer: PChar; Data: Pointer);


function GetBookmarkFlag(Buffer: PChar): TBookmarkFlag;


function GetFieldData(Field: TField; Buffer: Pointer): Boolean;


function GetRecNo: Integer;


function GetRecord(Buffer: PChar; GetMode: TGetMode; DoCheck: Boolean): TGetResult;


function GetRecordCount: Integer;


function GetRecordSize: Word;


procedure InternalAddRecord(Buffer: Pointer; Append: Boolean);


procedure InternalClose;

FCurRec := -1;


procedure InternalDelete;


procedure InternalFirst;


procedure InternalGotoBookmark(Bookmark: Pointer);

BookMarks


procedure InternalHandleException;


procedure InternalInitFieldDefs;


procedure InternalInitRecord(Buffer: PChar);


procedure InternalLast;


procedure InternalOpen;


procedure InternalPost;


procedure InternalSetToRecord(Buffer: PChar);


function IsCursorOpen: Boolean;

MessageDlg( 'Finish: DestroyFields', mtWarning, [mbOk], 0 );


procedure SetBookmarkData(Buffer: PChar; Data: Pointer);


procedure SetBookmarkFlag(Buffer: PChar; Value: TBookmarkFlag);


procedure SetFieldData(Field: TField; Buffer: Pointer);


procedure SetRecNo(Value: Integer);


function GetDChar : char;


procedure ReadFld( Reader: TReader );

TextTable Methods


procedure SetDChar( FDivCh : char );


procedure WriteFld( Writer: TWriter );


Properties


property Active :


property AfterCancel :


property AfterClose :


property AfterDelete :


property AfterEdit :


property AfterInsert :


property AfterOpen :


property AfterPost :


property AfterScroll :


property BeforeCancel :


property BeforeClose :


property BeforeDelete :


property BeforeEdit :


property BeforeInsert :


property BeforeOpen :


property BeforePost :


property BeforeScroll :


property DivChar : char


property FileName : string


property KeepData : Boolean


Events


event OnCalcFields :


event OnDeleteError :


event OnEditError :


event OnNewRecord :


event OnPostError :


Variables


FCurRec : Integer;


FData : TStrGrid;


FFileName : string;


FFldNames : TStrings;


FFldOffs : PInteger;


FKeepDataInMem : Boolean;


FLastBookmark : LongInt;


FRecBufSize : Integer;


FRecInfoOfs : Integer;


FRecSize : Integer;


FSaveChanges : Boolean;