SystemHalt (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example halts before the TextOut and terminates the application. Do not expect to step into or over this procedure. It will immediately halt the execution of the program.

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
   if 1 = 1 then
     begin
       if 2 = 2 then
         begin
           if 3 = 3 then
             begin
               Halt(1); { Halt right here. }
             end;
         end;
     end;
   Canvas.TextOut(10, 10, 'This will not be executed');
 end;

Uses