t_id
285
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022741724 | 1027381 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0029.pp } { tests typeof(object type) OK 0.99.1 (FK) } type TA = object constructor init; procedure test;virtual; end; constructor TA.init; begin end; procedure TA.test; begin end; var P: Pointer; begin P := pointer(TypeOf(TA)); end.