|
Тема |
Допулнение [re: Shveik] |
|
Автор | Shveik (Нерегистриран) | |
Публикувано | 27.09.00 11:21 |
|
|
В този help "C:\Program Files\Common Files\Borland Shared\BDE\bde32.hlp" са описани всички DBEAPI + примери на Delphi и С++Builder
Това е DbiPackTable функцията която пакетира таблицата т.е. премахва наистина изтритите записи.
function DbiPackTable(hDb: hDBIDb; hCursor: hDBICur; pszTableName: PChar; pszDriverType: PChar; bRegenIdxs: Bool): DBIResult stdcall;
//Пример за пакетиране на таблица
unit ...
interface . . . procedure PackTable(Table: TTable);
implementation
uses BDE;
procedure PackTable(Table: TTable); var Props: CURProps; begin if not Table.Active then raise EDatabaseError.Create('Таблицата трябва да е отворена');
if not Table.Exclusive then raise EDatabaseError.Create('Таблицата трябва да е отворена при Exclusive := True');
//Get the table properties to determine table type... Check(DbiGetCursorProps(Table.Handle, Props));
if (Props.szTableType = szDBASE) then Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True)) else raise EDatabaseError.Create('Таблицата трябва да е dBASE тип');
Table.Open; end;
|
| |
|
|
|