Pack en tablas Paradox

[dec]

Pack en tablas Paradox

(Obtenido de La Cara Oculta de Delphi de Ian Martees)

Hay que recordar poner en Uses BDE.

Código Delphi [-]
var
  PxStruct: CRTblDesc;
  db:TDataBase;
begin
  with TTable.Create(Self) do
  try
    DatabaseName := 'Nombre_alias';
    TableName := 'Nombre_Tabla.db';
    Exclusive := True;
    Open;
    Db := Session.FindDatabase('Nombre_alias');
    Db.KeepConnection := True;
    Close;
    FillChar(PxStruct, SizeOf(PxStruct), 0);
    StrPCopy(PxStruct.szTblName, 'Nombre_Tabla.db');
    PxStruct.bPack := True;
    if DbiDoRestructure(Db.Handle, 1, @PxStruct, nil, nil, nil, False)<> DBIERR_NONE
       then raise EDatabaseError.Create('Error en tabla');
    Db.Connected := False;
  finally
    Free;
  end;
end;