var 
dj:integer;
djx:string;dj:= int(strtofloat(djx) * 10000) //  运行到此处提示  Incompatible types: 'Integer' and 'Extended'  是何原因

解决方案 »

  1.   

    Extended 3.6 x 10^-4951 .. 1.1 x 10^4932 19-20 10
    你的dj是一个整型,而你运算的表达式是一个浮点数,两者类型不兼容。如果用下式就可以了:
    dj := trunc(StrToFloat(djx)*1000);
      

  2.   

    顺便说下Int(X)这个函数,它只是返回X的整数部分,不是返回整数类型。如 Int(123.45)的结果是123.0,仍然是实数类型。
      

  3.   

    看下Int函数的帮助,你就知道了,类型不对
      

  4.   

    Incompatible types: 'Integer' and 'Extended'
    类似这样的 Incompatible types: 'XXX' and 'XXX' 
    都是类型不匹配了