Процедура Halt в Delphi закінчує програму з додатковим діалогом.
System unit
procedure Halt ({ExitValue : Integer});
Процедура Halt змушує різке завершення поточної програми.
Попередження: не гарантується, що ресурси будуть звільнені під час виклику halt.
Змінна ExitCode може бути довільно встановлена, передаючи значення ExitValue. Цей код передається переривачу програми як код повернення програми.
Якщо значення ErrorAddr вже було присвоєно, перш ніж викликано Halt, то діалог відображається, показуючи значення ErrorAddr і ExitCode.
Після виконання Halt перед фактичним завершенням програми виконується секція модуля finalization.
Попередження.
Використовуйте цю процедуру лише у виняткових випадках.
Процедура Halt: Зупиняє програму з діалогом помилки
var
i : Integer;
begin
// Налаштуйте адресу помилки, щоб зупинка показувала діалогове вікно завершення
ErrorAddr := Addr(i);
// Зупиніть програму з кодом виходу 4
Halt(4);
// Наступне не буде виконано
ShowMessage('Ми так далеко не зайдемо');
end;Результат
Програма закінчується, не дотримуючись інструкції ShowMessage. Діалог помилки відобразить:
Runtime error 4 at 0069FC94
Подібні функції, процедури та команди
Break — виконує вихід із одного циклу.
Continue — змушує перейти до наступної ітерації циклу.
Exit — здійснює вихід із функції або процедури.
ExitCode — встановлює код повернення, коли програма закінчується.
Goto — викликає стрибок до мітки, незалежно від вкладення.
RunError — закінчує програму з діалогом помилки.
Abort — перериває обробку команд і виходить до останнього виключного блоку.
Пригостити автора кавою