Процедура Halt в Delphi заканчивает программу с дополнительным диалогом.
System unit
procedure Halt ({ExitValue : Integer});
Процедура Halt вынуждает резкое завершение текущего приложения.
Предупреждение: не гарантируется, что ресурсы будут освобождены при вызове halt.
Переменная ExitCode может быть произвольно установлена, передавая значение ExitValue. Этот код передается прерывателю приложения как код возврата от приложения.
Если значение ErrorAddr уже было присвоено, перед тем как был вызван Halt, то диалог отображается, показывая значение ErrorAddr и ExitCode.
После выполнения Halt, перед фактическим завершением программы, выполняется секция модуля finalization.
Предупреждение.
Используйте эту процедуру только в исключительных случаях.
Процедура Halt: Останавливает программу с диалогом ошибки
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
Похожие функции, процедуры и команды
Break — выполняет выход из одного цикла.
Continue — заставляет перейти к следующей итерации цикла.
Exit — осуществляет выход из функции или процедуры.
ExitCode — устанавливает код возврата, когда приложение заканчивается.
Goto — вызывает скачок к метке, независимо от вложения.
RunError — заканчивает программу с диалогом ошибки.
Abort — прерывает обработку команд и выходит к последнему исключительному блоку.
Угостить автора чашечкой кофе