Unit XBase |
****************************************************************************} {* This code was written by : Jamie Hart *} {******************************************************************************} {* TXBase is a Non-visual component for Delphi 2/3 which gives access to *} {* dBase III+ data files without needing the BDE installed. *} {* *} {* This component is freeware: any comments or suggestions are welcome at: *} {* jay@bitsmart.com *} {* *} {* Version 0.99a (beta) *} {******************************************************************************} {* Users of the TXBase component must accept the following disclaimer of *} {* warranty: *} {* *} {* TXBase is supplied as is. The author disclaims all warranties, expressed *} {* or implied, including, without limitation, the warranties of *} {* merchantability and of fitness for any purpose. The author assumes no *} {* liability for damages, direct or consequential, which may result from the *} {* use of TXBase. *} {
Classes |
TXBase -
TXBFilenameProperty -
Functions |
Register - --------------------------------------} { Register } {--------------------------------------
Types |
TDBTHeader
TFieldStruct
TFieldType
THeader
TXBChangeEvent
TXBDeleteEvent
Constants |
Variables |
Functions |
Types |
TDBTHeader = record
NextBlock : DWORD;
BlockSize : DWORD;
Reserved : Array[1..504] Of Char;
end;
TFieldStruct = record
FieldName : Array[1..11] Of Char;
FieldType : Char;
Address : DWORD;
FieldLength : Byte;
Decimals : Byte;
Reserved : Word;
WorkArea : Byte;
Reserved2 : Word;
SetFields : Byte;
Reserved3 : Array[1..7] Of Byte;
IndexFlag : Byte;
end;
TFieldType = (xbfUnknown, xbfChar, xbfDate, xbfNumber, xbfLogic, xbfMemo);
THeader = record
VersionNumber : Byte;
LastUpdated : Array[1..3] Of Byte;
NumRecords : DWORD;
HeaderLen : Word;
RecordLen : Word;
Reserved : Word;
IncTrans : Byte;
EncFlag : Byte;
Reserved2 : Array[1..12] Of Byte;
MdxFlag : Byte;
LangDriver : Byte;
Reserved3 : Word;
end;
TXBChangeEvent = Procedure (Sender: TObject; Var Allowed: Boolean) Of Object
TXBDeleteEvent = Procedure (Sender: TObject; Var Allowed: Boolean) Of Object
Constants |
Variables |