Terminates the program with an optional dialog System unit
 procedure Halt({ ExitValue Integer });
The Halt procedure forces an abrupt termination of the current application.
Warning : resources cannot be guaranteed to be freed when calling halt.
Optionally, the ExitCode variable may be set by passing an ExitValue. This code is returned to the application invoker as the return code from the application.
If ErrorAddr has been assigned a value, when Halt is called, a dialog is displayed showing the ErrorAddr and ExitCode values.
After Halt executes, the finalization section of the unit is executed before the program actually terminates.
Warning : use only in exceptional circumstances.
Related commands
BreakForces a jump out of a single loop
ContinueForces a jump to the next iteration of a loop
ExitExit abruptly from a function or procedure
ExitCodeSets the return code when an application terminates
GotoForces a jump to a label, regardless of nesting
RunErrorTerminates the program with an error dialog
AbortAborts the current processing with a silent exception
 Download this web site as a Windows program.

Example code : Halt a program with an error dialog
  i : Integer;
  // Set up an error address so that halt shows a termination dialog
  ErrorAddr := Addr(i);

  // Stop the program with exit code 4

  // The following will not be executed
  ShowMessage('We do not get this far');
Show full unit code
  The program terminates without running the ShowMessage statement. An error dialog is displayed:
  Runtime error 4 at 0069FC94
Delphi Programming © Neil Moffatt . All rights reserved.  |  Home Page