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


Procedure Register;

--------------------------------------} { Register } {--------------------------------------

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