Разное



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Компоненты CoolBar и ControlBar
   Категория: Компоненты
  Как получить дату создания файла
   Категория: Файловая система
  Упаковка таблиц в BDE
   Категория: Базы данных
  Форма всегда наверху
   Категория: Компоненты
  Компоненты Panel, GroupBox, Bevel, ScrollBox, Splitter
   Категория: Компоненты
  Изменить пароль для Paradox
   Категория: Базы данных
  Объект экрана — Screen
   Категория: Компоненты
  Вывод текста на канву Canvas
   Категория: Компоненты

Анальный секс в Тольятти
Delphi - База Знаний: Упаковка таблиц в BDE

  << Вернуться к Содержанию   

uses  BDE;  
function PackTable(Table: TTable): Boolean;  
var
  hDB: HDBIDB;
begin
  with Table do begin

      Close;
      Exclusive := True;
      Open;
      hDB := DBHandle;
      DbiPackTable(hDB,  Handle, nil,  nil, True);
      Result := True;
      Close;
      Exclusive := False;
      Active := True;
    end;
end;
  << Вернуться к Содержанию