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

Reply via email to