On 13 Jun 2007, at 20:25, josepascual wrote:
So you need to fix your code by adding an extra VarAsType(...,double) call.How can I do it?else Result :=Round(double(VarAsType(dataNum, varDouble)))// varInteger)or other solution?
I'd guess else Result :=Round(double(VarAsType(dataNum, varDouble)/varInteger)) Jonas _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal