t_id
32
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443691295 | 934973 | True | False | Successfully run |
Record count: 1
{ %VERSION=1.1 }
program testv8;
uses variants,varutils;
Procedure TestConvert(Var V : Variant);
Var
I64 : Int64;
LI : Longint;
SI : Smallint;
HI : Shortint;
Q : QWord;
C : Cardinal;
W : Word;
B : Byte;
R : Real;
D : Double;
E : Extended;
S : Single;
Bo : Boolean;
begin
DumpVariant(TVarData(V));
I64:=V;
Writeln('To Int64 : ',I64);
LI:=V;
Writeln('To Longint : ',LI);
SI:=V;
Writeln('To Smallint : ',SI);
HI:=V;
Writeln('To Shortint : ',HI);
Q:=V;
Writeln('To QWord : ',Q);
C:=V;
Writeln('To Cardinal : ',C);
W:=V;
Writeln('To Word : ',W);
B:=V;
Writeln('To Byte : ',B);
R:=V;
Writeln('To Real : ',R);
D := v;
Writeln('To Double : ',D);
E := v;
Writeln('To Extended : ',E);
S := v;
Writeln('To Single : ',S);
Bo := v;
Writeln('To Boolean : ',Bo);
end;
Procedure TestReal(R : Real);
Var
V : Variant;
begin
V:=R;
TestConvert(V);
V:=-R;
TestConvert(V);
end;
Procedure TestDouble(R : Double);
Var
V : Variant;
begin
V:=R;
TestConvert(V);
V:=-R;
TestConvert(V);
end;
Procedure TestSingle(R : Single);
Var
V : Variant;
begin
V:=R;
TestConvert(V);
V:=-R;
TestConvert(V);
end;
Procedure TestExtended(R : Extended);
Var
V : Variant;
begin
V:=R;
TestConvert(V);
V:=-R;
TestConvert(V);
end;
begin
TestReal(1.0E-1);
TestDouble(2.0E-2);
TestSingle(3.0E-3);
TestExtended(4.0E-4);
TestReal(1.0E1);
TestDouble(2.0E2);
TestSingle(3.0E3);
TestExtended(4.0E4);
TestReal(0.0);
TestDouble(0.0);
TestSingle(0.0);
TestExtended(0.0);
TestReal(1.0E-39);
TestDouble(2.0E-39);
TestSingle(3.0E-39);
TestExtended(4.0E-39);
end.