Raise(Text : String)
Генерировать исключение

Функцияа Raise генерирует исключение, то есть прерывает выполнение программы и выводит текст ошибки. Блок Try языка программирования может перехватить исключение.

Пример:

Procedure OnCreate;
Var
  X : Integer;
Begin
  X := Fact(-10);
  Warning(ToStr(X));
End;

Function Fact(X : Integer) : Integer;
Begin
  If X<0 Then Raise('X не может быть отрицательным');
  Result := If(X=0, 1, X * Fact(X-1));
End;

Текст ошибки можно вывести над конкретным полем формы используя метод Error. Он так же как и Raise генерирует исключение, но текст ошибки выводится по другому.

Пример:

Procedure OnOkClick;
Begin
  If Summa<100 Then Summa.Error('Сумма должна быть больше 100');
End;

Результат:

Смотри статьи GetExceptionText, Field.Error.

© RTIT