Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 1 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Вызов 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.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS