t_id
31
t_version
1.1
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/21 01:36:00 14 | 2024/05/21 02:08:00 0 | |
i386 | 25 | 50.0 | 2024/05/21 01:37:00 47 | 2024/05/21 02:04:00 34 | |
x86_64 | 23 | 46.0 | 2024/05/21 01:36:00 14 | 2024/05/21 02:08:00 0 | |
aarch64 | 2 | 4.0 | 2024/05/21 01:46:00 38 | 2024/05/21 02:03:00 35 | |
linux | 49 | 98.0 | 2024/05/21 01:36:00 14 | 2024/05/21 02:08:00 0 | |
win32 | 1 | 2.0 | 2024/05/21 02:04:00 34 | 2024/05/21 02:04:00 34 | |
3.3.1 | 32 | 64.0 | 2024/05/21 01:36:00 14 | 2024/05/21 02:08:00 0 | |
3.2.3 | 18 | 36.0 | 2024/05/21 01:37:00 47 | 2024/05/21 02:08:00 0 |
{ %VERSION=1.1 } program testv2; uses variants,varutils; Procedure TestReal; Var V : Variant; R : Real; begin Writeln('Real assignment'); R:=1.0E-1; V:=R; DumpVariant(TVarData(V)); end; Procedure TestDouble; Var V : Variant; R : Double; begin Writeln('Double assignment'); R:=2.0E-2; V:=R; DumpVariant(TVarData(V)); end; Procedure TestExtended; Var V : Variant; R : Extended; begin Writeln('Extended assignment'); R:=3.0E-3; V:=R; DumpVariant(TVarData(V)); end; Procedure TestSingle; Var V : Variant; R : Single; begin Writeln('Single assignment'); R:=4.0E-4; V:=R; DumpVariant(TVarData(V)); end; begin TestReal; TestDouble; TestExtended; TestSingle; end.