t_id
176
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:23:00 25 | 2024/05/21 00:58:00 35 | |
i386 | 19 | 38.0 | 2024/05/20 23:23:00 25 | 2024/05/21 00:37:00 24 | |
sparc | 22 | 44.0 | 2024/05/20 23:25:00 38 | 2024/05/20 23:55:00 41 | |
x86_64 | 6 | 12.0 | 2024/05/20 23:44:00 14 | 2024/05/21 00:49:00 15 | |
aarch64 | 2 | 4.0 | 2024/05/21 00:12:00 32 | 2024/05/21 00:58:00 35 | |
sparc64 | 1 | 2.0 | 2024/05/20 23:47:00 148 | 2024/05/20 23:47:00 148 | |
linux | 16 | 32.0 | 2024/05/20 23:26:00 24 | 2024/05/21 00:58:00 35 | |
win32 | 1 | 2.0 | 2024/05/20 23:41:00 23 | 2024/05/20 23:41:00 23 | |
solaris | 33 | 66.0 | 2024/05/20 23:23:00 25 | 2024/05/20 23:55:00 41 | |
3.3.1 | 30 | 60.0 | 2024/05/20 23:23:00 25 | 2024/05/21 00:58:00 35 | |
3.2.3 | 20 | 40.0 | 2024/05/20 23:25:00 38 | 2024/05/21 00:37:00 24 |
{ Type conversion program for char -> string } { possible types widechar -> widestring } { widechar -> shortstring } { widechar -> ansistring } { possible types char -> widestring } { char -> shortstring } { char -> ansistring } {$ifdef fpc} {$mode objfpc} {$ifndef ver1_0} {$define haswidestring} {$endif} {$else} {$ifndef ver70} {$define haswidestring} {$endif} {$endif} procedure fail; begin WriteLn('Failure!'); halt(1); end; var str_ansi : ansistring; str_short : shortstring; {$ifdef haswidestring} str_wide : widestring; wc : widechar; {$endif haswidestring} c: char; _result : boolean; Begin {********************** char/widechar -> shortstring *******************} Write('widechar/char -> shortstring...'); {* normal char *} _result := true; { empty string -> shortstring } str_short := ''; if str_short <> '' then _result := false; { constant char -> shortstring } str_short := 'c'; if str_short <> 'c' then _result := false; { normal char -> shortstring } str_short := ''; c:='c'; str_short:=c; if str_short <> 'c' then _result := false; {* wide char *} {$ifdef haswidestring} { constant char -> shortstring } str_short := shortstring(widechar('c')); if str_short <> 'c' then _result := false; {$endif} { wide char -> shortstring } { This should not compile - at least it does not compile under Delphi } { str_short := ''; wc:='c'; str_short:=wc; if str_short <> 'c' then _result := false;} if _result then WriteLn('Success!') else fail; {********************** char/widechar -> ansistring *******************} Write('widechar/char -> ansistring...'); {* normal char *} _result := true; { empty string -> ansistring } str_ansi := ''; if str_ansi <> '' then _result := false; { constant char -> ansistring } str_ansi := 'c'; if str_ansi <> 'c' then _result := false; { normal char -> ansistring } str_ansi := ''; c:='c'; str_ansi:=c; if str_ansi <> 'c' then _result := false; {* wide char *} {$ifdef haswidestring} { constant char -> ansistring } str_ansi := widechar('c'); if str_ansi <> 'c' then _result := false; { normal char -> ansistring } str_ansi := ''; wc:='c'; str_ansi:=wc; if str_ansi <> 'c' then _result := false; {$endif} if _result then WriteLn('Success!') else fail; {} {$ifdef haswidestring} {********************** char/widechar -> widestring *******************} Write('widechar/char -> widestring...'); {* normal char *} _result := true; { empty string -> widestring } str_wide := ''; if str_wide <> '' then _result := false; { constant char -> widestring } str_wide := 'c'; if str_wide <> 'c' then _result := false; { normal char -> widestring } str_wide := ''; c:='c'; str_wide:=c; if str_wide <> 'c' then _result := false; {* wide char *} { constant char -> widestring } str_wide := widechar('c'); if str_wide <> 'c' then _result := false; { normal char -> widestring } str_wide := ''; wc:='c'; str_wide:=wc; if str_wide <> 'c' then _result := false; if _result then WriteLn('Success!') else fail; {$endif haswidestring} end.