大家好!    

var
  a : Real ;
begin  
  a := Chart1.Series[0].YValue[2] mod 2 ;
  showmessage(FlaotToStr(a)) ;
end;

如上段代碼編譯出現錯誤信息:Operator not applicable to this operand type 如果將a := Chart1.Series[0].YValue[2] mod 2 ;語句中的'mod' 改為 '/' 可以編譯,但是mod,div等就是編譯提示錯誤信息，請問是怎麼回事，如何解決？謝謝!< > 注:有在網站上查到錯誤信息: >< >

var a:Integer; b:Real; begin a:=123; b:=(a mod 5); ShowMessage(Format('%f',[b])); end; /////////////////////////////// var   a : Real;   begin     a := Chart1.Series[0].YValue[2] mod 2 ; showmessage(FlaotToStr(a)) ; end; 红色的地方是整形值吗? 风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com

s_admin您好!    Chart1.Series[0].YValue[2] 為Double型.    有試過這樣寫也不行:

var
  a : Real ;
begin  
  a := Chart1.Series[0].YValue[2]  ;
  showmessage(FloatToStr(a)) ; // 顯示結果為:82
  a := a mod 2 ; // 這一句編譯出錯.改成 a := a / 2 ;編譯就沒問題.但是我需要是取餘數.
>     
        

Mod是取模 如下: var a, c: Integer; b: Real; begin b := 123.8; a := Trunc(b); MessageBox(Handle, PChar(IntToStr(a)), '仅仅取整数', MB_OK MB_ICONINFORMATION); a := Round(b); // MessageBox(Handle, PChar(IntToStr(a)), '四所五入取整数', MB_OK MB_ICONINFORMATION); c := Round(b) mod 5; MessageBox(Handle, PChar(IntToStr(c)), '四所五入取整数，然后再取模', MB_OK MB_ICONINFORMATION); end; 风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com

这个函数也可以对Real取MOD function ModReal(const Value: Real; const M: Integer): Real; begin Result := (Trunc(Value) mod M) (Value - Trunc(Value)) end; var a, c: Integer; b, d: Real; begin b := 123.8; a := Trunc(b); MessageBox(Handle, PChar(IntToStr(a)), '仅仅取整数', MB_OK MB_ICONINFORMATION); a := Round(b); // MessageBox(Handle, PChar(IntToStr(a)), '四所五入取整数', MB_OK MB_ICONINFORMATION); c := Round(b) mod 5; MessageBox(Handle, PChar(IntToStr(c)), '四所五入取整数，然后再取模', MB_OK MB_ICONINFORMATION); d := ModReal(b, 5); MessageBox(Handle, PChar(Format('%f',[d])), 'Real数据取模', MB_OK MB_ICONINFORMATION); end; 风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com

@@ 我想…a 宣告為integer就好了吧… 我之前a 宣告為double也是同樣的錯誤… 後來才想到…mod是取餘數…餘數…是integer吧… 所以我改成integer就沒有錯了…

謝謝HM的提醒!也非常感謝sos_admin版主大人的耐心詳解.謝謝!    問題已解決~    改為如下:

var
  a : Integer ;
begin
 a := trunc(Chart1.Series[0].YValue[0]) mod 2;  //需先取整再mod
 showmessage(intToStr(a)) ;
end;