[fpc-pascal] this line in pascal compile for i386 version but arm version

[Jonas Maebe]

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