Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: RunError
RunError
|
procedure RunError ( { ExitValue : Integer } ) ; |
Функция (Unit System)
|
Заканчивает программу с диалогом ошибки
|
Описание:
|
Процедура RunError вынуждает резкое завершение текущего приложения. Предупреждение: нельзя гарантировать,что ресурсы быдут освобождены при запросе RunError. Например, переменная ExitCode может быть установлена, передавая ExitValue. Этот код возвращается завершателю приложения как код возврата от приложения. Диалог отобразится, показывая ErrorAddr (где RunError был выполнен) и значение ExitCode. После RunError выполняется, раздел finalization модуля, которая выполняется прежде, чем программа фактически заканчивается. |
Пример кода: Закончивание программы с диалогом ошибки
|
begin // Остановка программы с кодом завершения 0 RunError; // Нижеследующее не будет выполнено ShowMessage('Мы не добираемся настолько далеко'); end;
Результат:
|
Программа заканчивается, не выполняя инструкцию ShowMessage. Диалог ошибки отобразит: Runtime error 0 at 00452105 |
Примечание:
|
Предупреждение: используйте только в исключительных обстоятельствах. |