mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-04 23:38:32 +02:00
37 lines
728 B
ObjectPascal
37 lines
728 B
ObjectPascal
{$mode Delphi}
|
|
unit tw2739;
|
|
|
|
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;
|
|
var
|
|
p : pointer;
|
|
begin
|
|
p:=@NotifyMethod;
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|