t_id
690
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950714343 | 1015783 | True | False | Successfully run |
Record count: 1
var t : text; type tFoo = object a:integer; constructor Create; procedure ReadA; procedure ShowA; end; constructor tFoo.Create; begin a:=0; end; procedure tFoo.ReadA; begin write('a: '); Readln(t,a); end; procedure tFoo.ShowA; begin writeln('A=',a); end; var Foo:tFoo; begin assign(t,'tbug772.tmp'); rewrite(t); writeln(t,'4'); close(t); reset(t); Foo.Create; Foo.ReadA; {this leaves Foo.a untouched, but it should'nt} Foo.ShowA; if Foo.A<>4 then Halt(1); close(t); end.