Delphi dicas

Remover registros da tabela paradox fisicamente

Para compactar (remover fisicamente todos registros apagados) de uma tabela Paradox deve-se utilizar o seguinte

código:



procedure ParadoxPack(Tabela : TTable);

var

Props: CURProps;

hDb: hDBIDb;

TableDesc: CRTblDesc;

Table : TTable;

begin

        Tabela.Close;

        Table:= TTable.Create(Application.MainForm);

        Table.DatabaseName := Tabela.DatabaseName;

        Table.TableName := Tabela.TableName;

        Table.Exclusive := True;

        Table.Open;

        Check(DbiGetCursorProps(Table.Handle, Props));

        if Props.szTableType = szPARADOX then

        begin

                FillChar(TableDesc, sizeof(TableDesc), 0);

                Check(DbiGetObjFromObj(hDBIObj(Table.Handle),objDATABASE, hDBIObj(hDb)));

                StrPCopy(TableDesc.szTblName, Table.TableName);

                StrPCopy(TableDesc.szTblType, Props.szTableType);

                TableDesc.bPack := True;

                Table.Close;

                Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));

        end;

        Table.Free;

end;