Unit TUtil

*****************************************************} { } { Borland Delphi Unit } { TUTILITY.DLL Class Unit } { } { Copyright (c) 1996 AO ROSNO } { Copyright (c) 1997 Master-Bank } { } {

Classes

ETUtilityError - TUtility error
TTUtility - TTUtility

Functions

CheckTable -
CheckTables - Utility routines

Types

HTUses
PHTUses
PUVerifyCallBack
TCheckRepair
TTUAction
TUVerifyCallBack
TUVerifyProcess
TVerifyOption
TVerifyOptions

Constants

Variables


Functions


procedure CheckTable(const TableName: string; Repair: TCheckRepair);


procedure CheckTables(const TablesDir: string; Repair: TCheckRepair);

Utility routines

Types


HTUses = Word

PHTUses = ^HTUses

PUVerifyCallBack = ^TUVerifyCallBack
Call back info for Verify Callback function
TCheckRepair = (crNoRepair, crAutoRepair, crConfirmRepair);
Check and repair modes
TTUAction = procedure of object

TUVerifyCallBack = record
PercentDone : SmallInt;
TableName : DBIPath;
Process : TUVerifyProcess;
CurrentIndex : Word;
TotalIndex : Word;
end;

TUVerifyProcess = (TUVerifyHeader, TUVerifyIndex, TUVerifyData,
    TUVerifySXHeader, TUVerifySXIndex, TUVerifySXData, TUVerifySXIntegrity,
    TUVerifyTableName);
Verify Callback processes
TVerifyOption = (vfAppendErrors, vfBypassSecondaryIndexes,
    vfIgnoreWarnings, vfVerifyHeaderOnly, vfNoLockTable, vfDialogHide);

TVerifyOptions = set of TVerifyOption

Constants


Variables