Класс Exception является родительским классом для всех классов-исключений. Этот класс объявляется в модуле sysUtils следующим образом:
type
Exception = class(TObject)
private
FMessage: String;
FHelpContext: Integer;
public
constructor Create(const Msg: Strings);
constructor CreateFmt(const Msg: String;
const Args: array of const);
constructor CreateRes(Ident: Integers);
constructor CreateResFmt(Ident: Integer;
const Args: array of const) ;
constructor CreateHelp(const Msg: String; aHelpContext:
Integer) ;
constructor CreateFmtHelp(const Msg: String;
const Args: array of const; aHelpContext: Integers);
constructor CreateResHelp(Ident: Integer; aHelpContext:
Integer) ;
constructor CreateResFmtHelp(Ident: Integer;
const Args: array of const;
aHelpContext: Integers);
property HelpCoatext: Integer read FHelpContext write FHeipContext;
property Message: String read FMessage write FMessage;
end;
В классе определены целых 8 конструкторов для создания объекта. С их помощью можно прочитать текстовое сообщение из ресурса, отформатировать его, связать исключение с контекстной справочной службой. Свойство Message делает доступным частное поле FMessage, в котором содержится текстовое сообщение.