Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: Halt
Halt
|
procedure Halt ( { ExitValue : Integer } ) ; |
Процедура (Unit System)
|
Заканчивает программу с дополнительным диалогом.
|
Описание:
|
Процедура Halt вынуждает резкое завершение текущего приложения. Предупреждение: не гарантируется, что ресурсы будут освобождены при вызове halt. Переменная ExitCode может быть произвольно установлена, передавая значение ExitValue. Этот код передается прерывателю приложения как код возврата от приложения. Если значение ErrorAddr уже было присвоено, перед тем как был вызван Halt, то диалог отображается, показывая значение ErrorAddr и ExitCode. После выполнения Halt, перед фактическим завершением программы, выполняется секция модуля finalization. |
Пример кода: Останавливает программу с диалогом ошибки
|
var i : Integer; begin // Set up an error address so that halt shows a termination dialog ErrorAddr := Addr(i); // Stop the program with exit code 4 Halt(4); // The following will not be executed ShowMessage('We do not get this far'); end;
Результат:
|
Программа заканчивается, не выполнив инструкцию ShowMessage. Диалог ошибки отобразит: Runtime error 4 at 0069FC94 |
Примечание:
|
Предупреждение: используйте только в исключительных случаях. |