Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Базы данных \ Paradox \ Вызов TUTILITY

Вызов TUTILITY

var
  Session: hTUses;
  i: integer;
  ErrorCode: word;
  ResultCode: word;

procedure BdeError(ResultCode: Word);
begin
  if ResultCode <> 0 then
    raise Exception.CreateFmt('BDE ошибка %x', [ResultCode]);
end;

begin
  try
    BdeError(DbiInit(nil));
    BdeError(TUInit(@Session));

    for i := 1 to High(TableNames) do
    begin
      WriteLn('Проверка ' + TableNames[i]);

      ResultCode := TUVerifyTable(Session, @TableNames[i, 1], szPARADOX,
        'TABLERRS.DB', nil, TU_Append_Errors, ErrorCode);
      BdeError(ResultCode);

      if ErrorCode = 0 then
        WriteLn('Успешно')
      else
        WriteLn('ОШИБКА! -- Для информации смотри TABLERRS.DB!');

      WriteLn('');
    end;
  finally
    BdeError(TUExit(Session));
    BdeError(DbiExit);
  end;
end.

Название: Вызов TUTILITY
Дата публикации: 2004-03-18 (3045 Прочтено)

 
 

 

Page generation 0.033 seconds