Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.31;
Скачать: CL | DM;

Вниз

как сжать таблицу   Найти похожие ветки 

 
td   (2003-03-12 23:13) [0]

как можно программно сжать таблицу Парадокс?


 
Pat ©   (2003-03-12 23:18) [1]


uses bde;
procedure PackTable(Table: TTable);
var TblDesc: CrTblDesc;
TempDBHandle:HDBIDb;
WasActive:boolean;
begin
FillChar(TblDesc, SizeOf(TblDesc),0);
with TblDesc do
begin
StrPCopy(szTblName, Table.TableName);
strPCopy(szTblType, szPARADOX);
bPack:=true;
end;
WasActive:=Table.active;
if WasActive then Table.close;
try
Check(dbiOpenDatabase(PChar(Table.DatabaseName),nil,dbiREADWRITE,
dbiOpenExcl,nil,0,nil,nil,TempDBHandle));
try
Check(dbiDoRestructure(TempDBHandle,1,@TblDesc,nil,nil,nil,false));
finally
dbiCloseDatabase(TempDBHandle);
end;
finally
Table.Active:=WasActive;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.03.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
14-100387
Turgenew
2003-03-13 17:47
2003.03.31
ICQ


1-100305
KPY
2003-03-19 16:40
2003.03.31
Подскажите плиз с Grid победить


7-100471
KPV-10k
2003-02-02 20:31
2003.03.31
Как узнать все DeviceID CD-DRIVE s для команды mciSendCommand


14-100393
DrFaust
2003-03-13 12:46
2003.03.31
Не знает ли кто готового компонента для работы с USB.


8-100333
Yury
2002-12-26 11:29
2003.03.31
Video files