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
TBDEData
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
TBDEData = record
end;
****************************************************************************
some internal Utility routines