Процедура 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, но не всей процедуры в целом!