delphi ADOQuery读取数据时出现EVariantInvalidArgError的解决

问题描述：

执行一个查询语句，里面有一个字段需要计算，得到的值是一个小数位很长的浮点数，然后读取查询结果时，出现 EVariantInvalidArgError的错误，而且只有小数位特别长的数值在读取时才会报错。所以这个错误应该跟小数位数太长有关，当小数位数太长时，超过了adoquery的精度限制，所以无法读出。

解决方案：

在计算那个字段时，使其保留一定的位数，例如保留5位小数。方法是Round(x,5)，x是计算的结果，然后在读取的时候就不会出现那个错误了。