mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
37 lines
732 B
ObjectPascal
37 lines
732 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 : codepointer;
|
|
begin
|
|
p:=@NotifyMethod;
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|