All pastes #190822 Raw Edit

Unnamed

public text v1 · immutable
·published 2006-10-04 10:51 UTC
rendered paste body
procedure TForm1.Action2Execute(Sender: TObject);
var
  dao: OLEVariant;
begin
  dao := CreateOleObject('DAO.DBEngine.35');
  dao.CompactDatabase('database.mdb','compactdata.mdb');
end;