t_id
526
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
483197912 | 941357 | True | False | Successfully run |
Record count: 1
{$mode objfpc} type tobject2 = class i : longint; procedure y; constructor create; class procedure x; class procedure v;virtual; end; procedure tobject2.y; begin Writeln('Procedure y called'); end; class procedure tobject2.v; begin end; class procedure tobject2.x; begin v; end; constructor tobject2.create; begin end; type tclass2 = class of tobject2; var a : class of tobject2; object2 : tobject2; begin a:=tobject2; a.x; tobject2.x; object2:=tobject2.create; object2:=a.create; end.