Процедура 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 — прерывает обработку команд и выходит к последнему исключительному блоку.
Угостить автора чашечкой кофе