no message

tests/webtbs/tw2739.pp

@@ -0,0 +1,33 @@
+{$mode Delphi}
+
+interface
+
+
+
+type
+  TJclExceptNotifyProc = procedure (ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean);
+  TJclExceptNotifyMethod = procedure (ExceptObj: TObject; ExceptAddr: Pointer; OSException: Boolean) of object;
+
+
+
+function JclAddExceptNotifier(const NotifyProc: TJclExceptNotifyProc ): Boolean; overload;
+function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
+
+
+implementation
+
+function JclAddExceptNotifier(const NotifyProc: TJclExceptNotifyProc ): Boolean; overload;
+
+begin
+end;
+
+
+
+function JclAddExceptNotifier(const NotifyMethod: TJclExceptNotifyMethod): Boolean; overload;
+
+begin
+end;
+
+
+begin
+end.