Mega Code Archive
Packing a Paradox table
<![CDATA[
Title: Packing a Paradox table
Question:
Answer:
function PackParadoxTable(aTable: TTable; Db: TDatabase):DBIResult;
var
TblDesc: CRTblDesc;
begin
Result := DBIERR_NA;
FillChar(TblDesc, SizeOf(CRTblDesc), 0);
StrPCopy(TblDesc.szTblName, aTable.TableName);
TblDesc.bPack := True;
Result := DbiDoRestructure(Db.Handle, 1, @TblDesc, nil, nil, nil, False);
end;
]]>