Buscar por:

Pack em dbase

Código

{Pack em arquivos Dbase

Existe a função DbiPackTable() do  BDE, que você pode chamar dire-

tamente com  CHECK(). Esse  recurso funciona  tanto no  Delphi 1.0

quanto no Delphi32bits,apenas devemos mudar os arquivos declarados

na clausula USES onde...

Delphi 1.0 : DbiTypes, DbiProcs e DbiErrs;

Delphi 2.0 : Bde;

e depois ...}

Check(DbiPackTable(Table1.DbHandle,

                   Table1.Handle,

                   Nil,

                   szDBASE, True));

//onde ...

DbiPackTable(

         hDb,                   { Handle do arquivo }

         hCursor,               { Handle do cursor do arquivo }

         pszTableName,          { Nome do arquivo }

         pszDriverType,         { Tipo do arquivo }

         bRegenIdxs):DBIResult  { Regenera arquivos de indice }

{com a utilização do Check para ativar a função do BDE vc pode avaliar

se uma  exception foi  criada durante a operação e assim tomar as de-

vidas providencias. Apenas existe  um cuidado a ser tomado antes de

usar a função, o arquivo tem de estar aberto em modo exclusivo.}