t_id
1126
t_adddate
2003/10/15
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525654018 | 948220 | False | True | Skipping test run because it is a unit |
Record count: 1
{$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.