t_id
584
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
478063639 | 940520 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode objfpc}{$endif} uses ub0366; type tc2=class public FHeight : integer; procedure p1; end; procedure tc2.p1; var c1 : tc1; begin FHeight:=10; c1:=tc1.create; with c1 do begin Height:=FHeight; end; writeln('c1.Height: ',c1.Height,' (should be 10)'); if c1.Height<>10 then begin writeln('ERROR!'); halt(1); end; c1.free; end; var c2 : tc2; begin c2:=tc2.create; c2.p1; c2.free; end.