| Class tCreateDBF (unit MakeDBF) |
tObject
---------------------------------------------------------------------------
| Constructors |
constructor Create;Character, Numeric, Logical, Date } { ---------------------------------------------------------------------------
| Functions |
procedure AddField(Name : string; fldtype : char; fldsize : byte; dec : byte);
procedure ClearAll;
destructor Free;
procedure UpdateTable;
function WriteTable : boolean;| Properties |
property FileName : string| Events |
| Variables |
dbfType : BYTE;
fFileName : STRING;
NumRecs : Longint;
Rec1Pos : WORD;
RecLen : WORD;
resv : array[0..19] of char;
SubRecs : tList;
Update : array[0..2] of byte;| Constructors |
constructor Create;list of sub records (fields/columns)
Character, Numeric, Logical, Date } { ---------------------------------------------------------------------------
| Functions |
procedure AddField(Name : string; fldtype : char; fldsize : byte; dec : byte);destructor tCreateDBF.Free } { ---------------------------------------------------------------------------
procedure ClearAll;function tCreateDBF.WriteTable : boolean } { ---------------------------------------------------------------------------
destructor Free;constructor tCreateDBF.Create } { ---------------------------------------------------------------------------
procedure UpdateTable;procedure tCreateDBF.AddField } { ---------------------------------------------------------------------------
function WriteTable : boolean;procedure tCreateDBF.UpdateTable } { ---------------------------------------------------------------------------
| Properties |
property FileName : string| Events |
| Variables |
dbfType : BYTE;
fFileName : STRING;
NumRecs : Longint;date last updated.
Rec1Pos : WORD;number of records. set to 0 :)
RecLen : WORD;position of record 1
resv : array[0..19] of char;length of record including delete flg
SubRecs : tList;reserved for furture use
Update : array[0..2] of byte;database type