名前 題名 ▼ Mr.XRAYさん > > [四捨五入について] > > https://forums.embarcadero.com/thread.jspa?threadID=227533&tstart=0 > > >計算式として、 2000-(2000x0.95x0.755)=565.5 > >引数に565.5を渡しています。 > > ならないよん. > > procedure TForm1.Button3Click(Sender: TObject); > var > LValue : Integer; > begin > LValue := RoundAct(2000 - (2000 * 0.95 * 0.755)); > Memo1.Lines.Add(IntToStr(LValue)); > end; > > 全角 (漢字) の () は止めてね.X じゃなくて * がいいと思うよ. > って,全角の ( ) と x じゃ,Delphi が認識してくれないと思うのですが. GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link