t_id
608
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525924374 | 948269 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$ifdef fpc}{$mode objfpc}{$endif} uses ub0391; type tc1 = class procedure p1(l:longint); procedure p2; end; procedure tc1.p1(l:longint); begin writeln('longint: ',l); end; procedure tc1.p2; var c2 : tc2; begin c2:=tc2.create; { the next code should take tc1.p1(longint) as the tc2.p1 can not be seen from here! } with c2 do p1(100); c2.free; end; var c1 : tc1; begin c1:=tc1.create; c1.p2; c1.free; end.