Вызов TUTILITY

Советы » Paradox » Вызов 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

.

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com