2
0

tohelper.inc 468 B

123456789101112
  1. V:=value;
  2. AssertEquals('ToString',ValueAsString,V.ToString);
  3. AssertEquals('ToBoolean',True,V.ToBoolean);
  4. V:=0;
  5. AssertEquals('ToBoolean (false)',False,V.ToBoolean);
  6. V:=value;
  7. AssertEquals('ToHexString',ValueAshex,V.ToHexString);
  8. AssertEquals('ToHexString(digits)',ValueAsHexDigString,V.ToHexString(ValueAsHexDig));
  9. AssertEquals('ToDouble',Double(Value+0.0),V.ToDouble,0.00001);
  10. AssertEquals('ToExtended',Extended(Value+0.0),V.ToExtended,0.00001);