mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-05 21:47:47 +02:00
12 lines
196 B
ObjectPascal
12 lines
196 B
ObjectPascal
program demouncaughtexception;
|
|
|
|
uses sysutils;
|
|
|
|
Type
|
|
EMyError = class(Exception);
|
|
|
|
begin
|
|
Raise EMyError.Create('This can be shown in an alert by setting rtl.setUncaughtException=true');
|
|
end.
|
|
|