Tip에 있는 고수님들이 올린 파라독스(Paradox) 패킹 함수에 대하여

에러를 해결하신 고수님들의 조언을 부탁 드립니다.

제가 몇일을 고생 하였으나, 아직 초보라......

고수님들의 많은 조언 부탁 드립니다.


패킹함수 Tip에 있는 예제 문장
ex> PackTable(Table1)



uses DB, DBTables, BDE;

// Pack a Paradox or dBASE table

procedure PackTable(Table: TTable);
var
     TblDesc: CRTblDesc;
     TempDBHandle: hDBIDb;
     WasActive: Boolean;
     Props: CURProps;
begin
     Check(DbiGetCursorProps(Table.Handle, Props));
     FillChar(TblDesc, sizeof(TblDesc), 0);
     Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(TempDBHandle)));
     StrPCopy(TblDesc.szTblName, TableName);
     StrPCopy(TblDesc.szTblType, szPARADOX);
     TblDesc.bPack := True;
     Close;
     Check(DbiDoRestructure(TempDBHandle, 1, @TblDesc, nil, nil, nil, False));
     Open;
end;