Как паковать таблицу? |
Previous Top Next |
Code: |
function dgPackParadoxTable(Tbl: TTable; Db: TDatabase): DBIResult; {Packs a Paradox table by calling the BDE DbiDoRestructure function. The TTable passed as the first parameter must be closed. The TDatabase passed as the second parameter must be connected.} var TblDesc: CRTblDesc; begin Result := DBIERR_NA; FillChar(TblDesc, SizeOf(CRTblDesc), 0); StrPCopy(TblDesc.szTblName, Tbl.TableName); TblDesc.bPack := True; Result := DbiDoRestructure(Db.Handle, 1, @TblDesc, nil, nil, nil, False); end; |
©Drkb::02698
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Code: |
uses DbiProcs;
with Table do begin OldState := Active; Close; Exclusive := True; Open;
DbiPackTable(DBHandle, Handle, nil, nil, True); {^ здесь можно добавить check()}
Close; Exclusive := False; Active := OldState; { при желании можно сохранить закладку } end; |
Nomadic
©Drkb::02699
Взято с http://delphiworld.narod.ru