t_id
868
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
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.