t_id
31
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523850307 | 947922 | True | False | Successfully run |
Record count: 1
{ %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.