SystemRunError (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example demonstrates how to set a run error, the behavior of the execution, and the message that follows.

Code

var P: Pointer;

procedure TForm1.Button1Click(Sender: TObject);
begin
{$IFDEF Debug}
  if P = nil then
    RunError(204);
{$ENDIF}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  P:= nil;
end;

Uses

Personal tools
Assistance