t_id
278
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022765725 | 1027388 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0022.pp } { tests getting the address of a method OK 0.9.3 } type tobject = object procedure x; constructor c; end; procedure a; begin end; procedure tobject.x; begin end; constructor tobject.c; begin end; var p : pointer; begin p:=@a; p:=@tobject.x; p:=@tobject.c; end.