t_id
603
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523597986 | 947880 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$ifdef fpc}{$mode objfpc}{$endif} uses ub0386; type tobj2 = class (tobj1) { this will try to override tobj.proc1, it should not see tobj1.proc1 } procedure proc1 (a: integer);override; end; procedure tobj2.proc1 (a: integer); begin end; begin end.