Вызов TUTILITY

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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.

{/codecitation}

Добавить комментарий