t_id
444
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/20 23:47:00 40 | 2024/05/21 01:35:00 26 | |
i386 | 37 | 74.0 | 2024/05/21 00:22:00 25 | 2024/05/21 01:35:00 25 | |
sparc | 1 | 2.0 | 2024/05/20 23:47:00 40 | 2024/05/20 23:47:00 40 | |
x86_64 | 8 | 16.0 | 2024/05/21 00:49:00 15 | 2024/05/21 01:35:00 26 | |
powerpc64 | 2 | 4.0 | 2024/05/21 01:10:00 101 | 2024/05/21 01:11:00 108 | |
aarch64 | 2 | 4.0 | 2024/05/21 00:58:00 35 | 2024/05/21 01:29:00 35 | |
linux | 49 | 98.0 | 2024/05/21 00:22:00 25 | 2024/05/21 01:35:00 26 | |
solaris | 1 | 2.0 | 2024/05/20 23:47:00 40 | 2024/05/20 23:47:00 40 | |
3.3.1 | 27 | 54.0 | 2024/05/21 00:49:00 15 | 2024/05/21 01:34:00 0 | |
3.2.3 | 23 | 46.0 | 2024/05/20 23:47:00 40 | 2024/05/21 01:35:00 26 |
{ Old file: tbs0250.pp } { error with Ansistrings and loops. OK 0.99.11 (PFV) } program testme; uses erroru; // Removing this switch removes the bug !! {$H+} var A : String; P : PChar; I : longint; begin P := 'Some sample testchar'; A := Ansistring(P); Writeln ('A : ',A); for I:=1 to length(A)-1 do begin A:='Some small test'; A:=A+' ansistring'; Writeln ('A : ',A); If A<>'' then Writeln ('All is fine') else begin writeln ('Oh-oh!'); error; end; end; end.