t_id
1126
t_adddate
2003/10/15
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{$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.