用BCB进行多媒体数据库开发时常会发现这样一个现象,当你把一条记录从表中删除时,表档 大小并没有相应减小。这样在进行多次插入删除之后,表文件就会越来越庞大。之所以会出现这种现象,是因为TTable控件的 Delete Method并不真正从表中删除记录,而只是在记录前加上一个删除标志。在DBase和FoXPro中用Pack语句对表进行压缩,但在TTable类中却没有相应的函数。其实在BDE的API函数中已经提供了DbiPackTable来对DBase或Foxpro表进行压缩,但是这个函数对Paradox的表不起作用。要想给Paradox 表减肥得用DbiDoRestrUCture函数来完成,以下例程完成Pack Paradox表的功能。
//This function Pack the Paradox table. write by zodiac
void __fastcall TForm1::PackParadoxTable(hDBIDb hDB, AnsiString TblName)
{
//Paradox table use a quite different way to be packed than ...[ 查看全文 ]