Delphi-Help

Описание

procedure RunError ( { ExitValue : Integer } ) ;

Процедура RunError вынуждает резкое завершение текущего приложения.

Предупреждение: нельзя гарантировать,что ресурсы быдут освобождены при запросе RunError.

Например, переменная ExitCode может быть установлена, передавая ExitValue. Этот код возвращается завершателю приложения как код возврата от приложения.

Диалог отобразится, показывая ErrorAddr (где RunError был выполнен) и значение ExitCode.

После RunError выполняется, раздел finalization модуля, которая выполняется прежде, чем программа фактически заканчивается.

Пример кода

begin
// Остановка программы с кодом завершения 0
RunError;

// Нижеследующее не будет выполнено
ShowMessage('Мы не добираемся настолько далеко');
end;

Программа заканчивается, не выполняя инструкцию ShowMessage. Диалог ошибки отобразит:

Runtime error 0 at 00452105

Примечание

Предупреждение: используйте только в исключительных обстоятельствах.