t_id
690
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 39 | |
i386 | 21 | 42.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 39 | |
x86_64 | 27 | 54.0 | 2024/05/21 01:43:00 15 | 2024/05/21 02:14:00 10 | |
aarch64 | 2 | 4.0 | 2024/05/21 01:46:00 38 | 2024/05/21 02:03:00 35 | |
linux | 49 | 98.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 39 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 34 | 68.0 | 2024/05/21 01:42:00 23 | 2024/05/21 02:15:00 39 | |
3.2.3 | 16 | 32.0 | 2024/05/21 01:42:00 33 | 2024/05/21 02:13:00 35 |
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.