Message: string; FHelpContext: Integer; public

constructor Create(const Msg: string); constructor CreataFmt(const Msg: string;

const Args: array of const); constructor CreateRes(Ident: Integer); overload; constructor CreateRes(ResStringRec: PResStringRec); overload; constructor CreateResFtat(Ident: Integer;

const Args: array of const); overload; constructor CreateResFmt(ResStringRec: PResStringRec;

const Args: array of const); overload; constructor CreateHelp (const Msg: string; ABelpContext: Integer); constructor CreateRntHelp(const Msg: string;

const Args: array of const;

AHelpContext: Integer); constructor CreateResHelp(Ident: Integer;

AHelpContext: Integer); overload; constructor CreateResHelp(ResStringRec: PResStringRec;

AHelpContext: Integer); overload; constructor CreateResFmtHelp(ResStringRec: PResStringRec;

const Args: array of const;

ABelpContext: Integer); overload; constructor CreateResFmtHelp(Ident: Integer;

const Args: array of const;

AHelpContext: Integer); overload; property HelpContext: Integer read FHelpContext

write FHelpContext; property Message: string read FMessage write FMassage; end;

В классе Exception объявлено два свойства (табл. 5.2).

_____________________________________________ Таблица S 2

Класс Exception наследует осе функции своего базового класса TObject, в «авГк1_в^П0Л'^{ЗНУЮ ДЛЯ ИЛе}"™^{фИКаЦИИ} ««'местного исключения функцию

иск1:-^™3)^{ЕХСеР11011 0Ш,СаНЫ 8 KOHCTPyK}"^TOiMB' ^Насле^-х всеми

Пример вызова конструктора Create.

(Генерация собственного исключения EMyException) raise EMyException.Create ('He хватает исходных данных'); (Генерация исключения EZeroDivide с измененным сообщением) raise EZeroDivide.Create ('Деление на нуль'); {Использование функции Format}

raise ЕМуЕхсер*-ion.Create (Format ('Задано %d параметров из %d',

[N1,N2]));

Пример вызова конструктора CreateFmt: raise ЕМу.CreateFmt ('Задано %d параметров из %d',[N1,N2]));

В отличие от конструктора Create конструкторы, имеющие в своем названии Etat, сами неявно обращаются к функции Format, так что запись конструктора несколько упрощается.

Пример вызова конструктора CreateHelp: raise ЕМу.CreateHelp ('Не хватает исходных данных', 10)

Пример вызова конструктора CreateResFmt, при условии, что в файле ресурсов существует форматная строка с номером 65369, в которой требуется подстановка двух параметров тех же типов, что и переменные N1 и N2. raise ЕМу.CreateResFmt (65369, [HI, H2J).