Процедура RunError в Delphi закінчує програму з діалогом помилки.
System unit
procedure RunError ({ ExitValue : Integer }) ;
Процедура RunError змушує різке завершення поточної програми.
Попередження: не можна гарантувати, що ресурси будуть звільнені за запитом RunError.
Наприклад, змінна ExitCode може бути встановлена, передаючи ExitValue. Цей код повертається завершувачу програми як код повернення від програми.
Діалог з'явиться, показуючи ErrorAddr (де RunError був виконаний) та значення ExitCode.
Після RunError виконується, розділ finalization модуля, яка виконується, перш ніж програма фактично закінчується.
Попередження.
Використовуйте процедуру RunError лише у виняткових обставинах.
Процедура RunError: Зупинення програми з діалогом помилки
begin
// Зупинка програми з кодом завершення 0
RunError;
// Нижченаведене не буде виконано
ShowMessage('Ми не дістаємось настільки далеко');
end;Результат
Програма закінчується, не виконуючи вказівку ShowMessage. Діалог помилки відобразить:
Runtime error 0 at 00452105
Подібні процедури, функції, команди
Break — виконує вихід із одного циклу.
Exit — здійснює вихід із функції або процедури.
ExitCode — встановлює код повернення, коли програма закінчується.
Goto — викликає стрибок до мітки, незалежно від вкладення.
Halt — закінчує програму із додатковим діалогом.
Abort — перериває обробку команд і виходить до останнього виключного блоку.
Пригостити автора кавою
