t_id
868
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022218244 | 1027294 | False | False | Failed to run |
Record count: 1
1.2300000000000001E+001 1.3199999999999999E+001 0.0000000000000000E+000 Runtime error 217 at $00073254 $00073254 $00073254
var value:real; fin:text; begin assign(fin,'tw1896.tmp'); rewrite(fin); writeln(fin,'12.3'); writeln(fin,'13.2'); close(fin); assign(fin,'tw1896.tmp'); reset(fin); while not eof(fin) do begin read(fin,value); writeln(value) end; { Delphi returns 0 as last value } if value<>0 then begin writeln('Error'); halt(1); end; end.