![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сжать DBF
lightix © (2004-11-12 10:36:00)Подскажите (желательно с примерами) как сжать DBF файл?
Нашел функцию DbiPackTable, но не пойму как с ней работать
Anatoly Podgoretsky (2004-11-12 11:48:00) [1]Так в справке поднобнейший пример для двух языков программирования.
Koala (2004-11-12 11:16:00) [2]Вообще
> [1] Соловьев © (12.11.04 10:44)
прав!!!
а так:
в Uses добавить BDE
procedure TdbaseTable.Pack(RegenIndexes: Boolean);
{ Упаковка таблицы для удаления записей из файла. }
const
SPackError = 'Таблица должна быть активная и открыта эксклюзивно.';
begin
{Таблица должна быть активная и открыта эксклюзивно}
if not (Active and Exclusive) then
raise EDatabaseError.Create(SPackError);
try
{Упаковка таблицы}
Check(DbiPackTable(DBHandle, Handle, Nil, Nil, RegenIndexes));
finally
{ Обновление Delphi из BDE}
CursorPosChanged;
Refresh;
end;
end;
CODE>
Соловьев (2004-11-12 10:44:00) [3]Учимся работать с хелпом. F3 - bde32.hlp Там набираем данную функцию - и клацаем мышкой по Delphi examples