Проекты Логинова Дмитрия

Справочная система Matrix32

RaiseMatrixError Procedure

Генерирует исключение класса AClass с сообщением AText.

Declaration
Procedure RaiseMatrixError(AClass: ExceptClass; const AText: string; FuncName: string = ''; AMatrix: TMatrix = nil);

Parameters
AClass Класс объекта исключения
AText Текст сообщения об ошибке
FuncName Имя функции, в которой исключение сгенерировано
AMatrix Объект TMatrix, сопоставленный с данным исключением

RaiseMatrixError Example

 function DivValues(A, B: Integer): Double;
 begin
   if B = 0 then
     RaiseMatrixError(EZeroDivide, SDivByZero, 'function DivValues', nil);
   Result := A / B;
 end;