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/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 28.0 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 34.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 8 | 16.0 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 78.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.0 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 34 | 68.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 32.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ 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.