t_id
1441
t_adddate
2005/01/07
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:40:00 15 | 2024/05/21 04:32:00 54 | |
i386 | 5 | 10.0 | 2024/05/21 01:52:00 47 | 2024/05/21 04:13:00 54 | |
m68k | 1 | 2.0 | 2024/05/21 04:00:00 53 | 2024/05/21 04:00:00 53 | |
powerpc | 1 | 2.0 | 2024/05/21 04:15:00 238 | 2024/05/21 04:15:00 238 | |
x86_64 | 36 | 72.0 | 2024/05/21 01:40:00 15 | 2024/05/21 04:31:00 27 | |
powerpc64 | 2 | 4.0 | 2024/05/21 04:24:00 57 | 2024/05/21 04:32:00 54 | |
mipsel | 1 | 2.0 | 2024/05/21 04:11:00 185 | 2024/05/21 04:11:00 185 | |
aarch64 | 4 | 8.0 | 2024/05/21 02:52:00 39 | 2024/05/21 03:50:00 37 | |
linux | 38 | 76.0 | 2024/05/21 01:40:00 15 | 2024/05/21 04:32:00 54 | |
win32 | 1 | 2.0 | 2024/05/21 03:02:00 25 | 2024/05/21 03:02:00 25 | |
go32v2 | 1 | 2.0 | 2024/05/21 04:13:00 54 | 2024/05/21 04:13:00 54 | |
solaris | 10 | 20.0 | 2024/05/21 03:08:00 30 | 2024/05/21 03:35:00 27 | |
3.3.1 | 33 | 66.0 | 2024/05/21 01:40:00 15 | 2024/05/21 04:24:00 57 | |
3.2.3 | 17 | 34.0 | 2024/05/21 01:52:00 47 | 2024/05/21 04:32:00 54 |
{$APPTYPE CONSOLE} {$ifdef fpc}{$mode delphi}{$endif} procedure wideansi; var S: AnsiString = 'abcd'; pc: PChar = 'abcd'; ca: array [0..4] of Char = ('a', 'b', 'c', 'd', #0); W: WideString = 'abcd'; pw: PWideChar = 'abcd'; wa: array [0..4] of WideChar = ('a', 'b', 'c', 'd', #0); begin {$IFDEF FPC} ca := S; ca := W; ca := pc; wa := pw; wa := S; wa := W; {$ENDIF} W := S; W := pc; W := ca; W := pw; W := wa; S := W; S := pc; S := ca; S := pw; S := wa; if S = pc then WriteLn('(2.1) strings are equal'); if S = ca then WriteLn('(2.2) strings are equal'); WriteLn; if W = pw then WriteLn('(3.1) wide pass'); if W = wa then WriteLn('(3.2) wide pass'); WriteLn; if S = W then WriteLn('(4.1) wide vs ansi'); if pc = W then WriteLn('(4.2) wide vs ansi'); if ca = W then WriteLn('(4.3) wide vs ansi'); if pw = S then WriteLn('(4.4) wide vs ansi'); if wa = S then WriteLn('(4.5) wide vs ansi'); WriteLn; end; procedure wideshort; var S: ShortString = 'abcd'; pc: PChar = 'abcd'; ca: array [0..4] of Char = ('a', 'b', 'c', 'd', #0); W: WideString = 'abcd'; pw: PWideChar = 'abcd'; wa: array [0..4] of WideChar = ('a', 'b', 'c', 'd', #0); begin {$IFDEF FPC} ca := S; ca := W; ca := pc; wa := pw; wa := S; wa := W; {$ENDIF} W := S; W := pc; W := ca; W := pw; W := wa; S := W; S := pc; S := ca; S := pw; S := wa; if S = pc then WriteLn('(2.1) strings are equal'); if S = ca then WriteLn('(2.2) strings are equal'); WriteLn; if W = pw then WriteLn('(3.1) wide pass'); if W = wa then WriteLn('(3.2) wide pass'); WriteLn; if S = W then WriteLn('(4.1) wide vs ansi'); if pc = W then WriteLn('(4.2) wide vs ansi'); if ca = W then WriteLn('(4.3) wide vs ansi'); if pw = S then WriteLn('(4.4) wide vs ansi'); if wa = S then WriteLn('(4.5) wide vs ansi'); WriteLn; end; begin wideshort; wideansi; end.