RuntimeError 216

[bigshorty01]

Hello everybody.

Everytime I cole my Project, I get a RuntimeError 216 at adress 00002DD4. But I get this Error AFTER the last line of the Program has been run through. This Error appeared suddenly and I don't know how to get rid of it. I did not change anything before it appeared. I just renamed a variable. But renameing it back does not help.

Best regards
bigshorty01

 

[Nordlund]

Error 216 - da classic.
A tip. Make a procedure OnMyAppException and direct Application.OnException to that procedure. Then you can add a breakpoint in your OnMyAppexception, and trace from there.


//Nordlund

 

[Nordlund]

direct - redirect

//Nordlund

 

[bigshorty01]

Thanks.
I'm not so much skilled in Programming. Can you tell me how to redirect it to this procedure? This would be great!

 

[Nordlund]

Hi.
Here you have a snippet...
Place a breakpoint on the showmessage, and start tracing from there.

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure AppException(Sender: TObject; E: Exception);
  public
  end;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;
end;

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  ShowMessage('The application generated an exception'+#13#10#13#10+'Technical message:'+E.Message);
end;

//Nordlund