paradox 7

Access har samme problem. Den skal også compactes en gang i mellem.

Jer har fundet nedestående function til at compacte en paradox database, jeg har dog ikke testet det.

---------------------------------------------
HUSK AT TAGE BACKUP INDEN DU BEGYNDER AT LEGE
---------------------------------------------

function dgPackParadoxTable(Tbl: TTable; Db: TDatabase):DBIResult;
{Packs a Paradox table by calling the BDE
DbiDoRestruct 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;

Stoney

Tak skal du have stoney
jeg prøve dette her
:-)