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

Другое по теме:

• Byte-поля Paradox
• Paradox в сети
• Paradox и неверные индексы Win95