Описание

procedure Halt ( { ExitValue : Integer } ) ;

Процедура 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

Примечание

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