demouncaughtexception.pas 196 B

1234567891011
  1. program demouncaughtexception;
  2. uses sysutils;
  3. Type
  4. EMyError = class(Exception);
  5. begin
  6. Raise EMyError.Create('This can be shown in an alert by setting rtl.setUncaughtException=true');
  7. end.