RSS

Abort (процедура)

Процедура Abort – вызывает  остановку текущей обработки(процедуры, функции, блока) и переходит к последнему исключительному блоку. Процедура Abort входит в состав библиотеки SysUtils и не имеет входных параметров.

Примеры использования:

Полная остановка обработчика кнопки.

procedure TForm1.Button2Click(Sender: TObject);
begin
if true then
  begin
       ShowMessage(‘Событие перед остановкой!’);
      Abort;
  end;
ShowMessage(‘Событие не произошло!’);
end;

Остановка некоторого блока в обработчике:

procedure TForm1.Button1Click(Sender: TObject);
begin
   // Вход в блок try
  Try
    ShowMessage(‘До прерывания’);
    Abort;
    ShowMessage(‘После прерывания’);
  Except
    On E : Exception do ShowMessage(E.Message + ‘ — исключение произошло’);
  end;

  ShowMessage(‘После блока try’);

end;

В этом случае происходит остановка выполнения блока Try, но не всей процедуры в целом!