t_id
1360
t_adddate
2004/09/13
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:10:00 32 | 2024/05/21 01:56:00 16 | |
i386 | 30 | 60.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:55:00 26 | |
x86_64 | 19 | 38.0 | 2024/05/21 01:28:00 26 | 2024/05/21 01:56:00 16 | |
aarch64 | 1 | 2.0 | 2024/05/21 01:46:00 38 | 2024/05/21 01:46:00 38 | |
linux | 50 | 100.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:56:00 16 | |
3.3.1 | 28 | 56.0 | 2024/05/21 01:25:00 37 | 2024/05/21 01:56:00 16 | |
3.2.3 | 22 | 44.0 | 2024/05/21 01:10:00 32 | 2024/05/21 01:56:00 35 |
{ Source provided for Free Pascal Bug Report 3301 } { Submitted by "Alexey Barkovoy" on 2004-09-07 } { e-mail: clootie@ixbt.com } {$APPTYPE CONSOLE} {$mode delphi} uses SysUtils; var err : boolean; procedure WideConstArray(FS: String; const Args: array of const); var i: Integer; S: String; begin for i:= 0 to High(Args) do begin if (Args[i].Vtype = vtPointer) or (Args[i].Vtype = vtObject) or (Args[i].Vtype = vtClass) or (Args[i].Vtype = vtVariant) then // == 5 begin WriteLn('BAD: ', i, ' parameter is detected as a pointer one - (', Args[i].Vtype, ')'); err:=true; end else WriteLn(': ', i, ' parameter is detected as a some other type - (', Args[i].Vtype, ')'); end; S:= Format(FS, Args); WriteLn; WriteLn('Result is:', S); end; var w1: WideString; wc: PWideChar; cc: WideChar; S: String; ch: Char; pch, pch2: PChar; begin w1 := 'Some other wide string'; wc:= @w1[1]; S:= 'String1'; ch:= 'c'; pch:= @ch; pch2:= @s[1]; cc:= 'Z'; // BAD: This will raise exception? WideConstArray('%s, %s, %s, %s, %s', [WideString('wide string'), w1, cc, wc, PWideChar(wc)]); if err then halt(1); end.