Class TTextTable (unit TxtTable) |
Inherits from
TDataSet
TTextTable - descedant of TDataSet, implements simple text file based dataset
constructor Create(AOwner: TComponent);
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 );
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
event OnCalcFields :
event OnDeleteError :
event OnEditError :
event OnNewRecord :
event OnPostError :
FCurRec : Integer;
FData : TStrGrid;
FFileName : string;
FFldNames : TStrings;
FFldOffs : PInteger;
FKeepDataInMem : Boolean;
FLastBookmark : LongInt;
FRecBufSize : Integer;
FRecInfoOfs : Integer;
FRecSize : Integer;
FSaveChanges : Boolean;
constructor Create(AOwner: TComponent);
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 );
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
event OnCalcFields :
event OnDeleteError :
event OnEditError :
event OnNewRecord :
event OnPostError :
FCurRec : Integer;
FData : TStrGrid;
FFileName : string;
FFldNames : TStrings;
FFldOffs : PInteger;
FKeepDataInMem : Boolean;
FLastBookmark : LongInt;
FRecBufSize : Integer;
FRecInfoOfs : Integer;
FRecSize : Integer;
FSaveChanges : Boolean;