Mega Code Archive
Paradox tabloların kod ile pack edilmesi
<![CDATA[
Function PackParadoxTable(Table: TTable): Boolean;
Var
h: hDBIDb;
Dsc: CRTblDesc;
Begin
FillChar(Dsc, SizeOf(Dsc), 0);
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), ObjDATABASE, hDBIObj(h)));
StrPCopy(Dsc.SzTblName, Table.TableName);
StrPCopy(Dsc.SzTblType, SzPARADOX);
Dsc.bPack:= True;
Table.Close;
Check(DbiDoRestructure(h, 1, @Dsc, Nil, Nil, Nil, False));
Table.Open;
Result:= True;
End;
]]>