Raise Exception.Create

DenNik · Регистрация: 26.07.2011

Author24 — интернет-сервис помощи студентам

добрый день. вызывает ли конструкция raise прерывание выполнения процедуры, в которой она вызвана? т.е., я пишу так

Delphi

if not ShellExecuteEx(@ExInfo) then
  begin
    raise Exception.Create(SysErrorMessage(GetLastError));
    Exit;
  end;
  WaitForSingleObject(ExInfo.hProcess,tm);

чтобы прервать дальнейшее выполнение процедуры. или можно Exit опустить? когда-то читал об этом, но смутно помню

@TFullControl · 02.06.2017, 09:48

Сообщение от DenNik

вызывает ли конструкция raise прерывание выполнения процедуры

Да, вызывает, вот мини пример

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.Lines.Add('1');
  raise Exception.Create('Error');
  memo1.Lines.Add('2');
end;

Выведет только 1.

DenNik · 02.06.2017, 11:25 **[ТС]**

и как я сам не догадался проверить

Добавлено через 1 час 34 минуты
нюанс. кому пригодится потом
в конструкции

Delphi

try
  if not ShellExecuteEx(@ExInfo) then
  raise Exception.Create(SysErrorMessage(GetLastError));
  WaitForSingleObject(ExInfo.hProcess,tm);
finally
  ShowMessage('finally');
end;

в случае исключения блок finally выполнится, WaitFor... - нет

	02.06.2017, 11:25