Unit dnDBUtil

Classes

Functions

BDEData2Variant - * Converting BDE-Data from/to Variants
ChangeTableParams - * Restructure Table using OptParams: a String like 'LEVEL=7;FILL FACTOR=75;BLOCK SIZE=4096' OR a StringList with strings[0] := 'LEVEL=7' strings[1] := 'FILL FACTOR=75' strings[2] := 'BLOCK SIZE=4096' OptParams are Encoded via the EncodeOptData-functions below WARNING: All auxiliary passwords (but NOT the MASTER-PASSWORD) are removed
ChangeTableParamsList -
EncodeOptData - * Create optional data for create/reconstruct of a BDE table using a String containing 'Name=value;Name=value;.
EncodeOptDataList - count of Optional Data
GetValCheck - corresponding Field {$ENDIF} {*** For Paradox-tables: returns the ValCheck defined for aField, FALSE if none exists.
QualifiedTableName - * Returns full path + filename for Table (Table must be active!!
Variant2BDEData - corresponding Field

Types

TBDEData

Constants

Variables


Functions


function BDEData2Variant( BDEData : pointer; //BDE internal data format Field : TField) //corresponding Field : variant;

* Converting BDE-Data from/to Variants

procedure ChangeTableParams(Table: TTable; const OptParams: string);

* Restructure Table using OptParams: a String like 'LEVEL=7;FILL FACTOR=75;BLOCK SIZE=4096' OR a StringList with strings[0] := 'LEVEL=7' strings[1] := 'FILL FACTOR=75' strings[2] := 'BLOCK SIZE=4096' OptParams are Encoded via the EncodeOptData-functions below WARNING: All auxiliary passwords (but NOT the MASTER-PASSWORD) are removed

procedure ChangeTableParamsList(Table: TTable; OptParams: TStringList);


function EncodeOptData(const Params: String; {String containing 'Name=value;Name=value;...'} var pOptDesc : pFldDesc; {must be freed with FreeMem(pOptDesc, OptCount * sizeof(FLDDesc))} var pOptData : pChar; {must be freed with strDispose} var OptCount : integer {count of Optional Data} ) : boolean;

* Create optional data for create/reconstruct of a BDE table using a String containing 'Name=value;Name=value;...' OR a StringList with one Param in every line

function EncodeOptDataList(Params: TStringList; {Strings containing 'Name=value'} var pOptDesc : pFldDesc; var pOptData : pChar; var OptCount : integer ) : boolean;

count of Optional Data

function GetValCheck(aField: TField; var VCD: VChkDesc) : boolean;

corresponding Field {$ENDIF} {*** For Paradox-tables: returns the ValCheck defined for aField, FALSE if none exists. Extract values from VCD with BDEData2Variant

function QualifiedTableName(Table : TTable): String;

* Returns full path + filename for Table (Table must be active!!

procedure Variant2BDEData( value: Variant; BDEData : pointer;//BDE internal data format Field : TField);

corresponding Field

Types


TBDEData = record
end;
**************************************************************************** some internal Utility routines

Constants


Variables