掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
オーバーフロー (ID：32979)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
演算は左側から順番に実行されます． 計算していくと，整数として実行され，整数値の範囲を超えるために発生します． 単に数値を書いた場合は，32bitと解釈されます． 明示的に，数値が浮動小数点であることを指示するか．Int64等の変数を定義して，そこに代入すればOKですが． tmpが浮動小数点ですよね( / の演算をしているから)． もっとも，このままでも他のエラーが発生しますけど (^^ procedure TForm1.Button1Click(Sender: TObject); var tmp : Double; begin tmp := 1500.0 * 400.0 * 4786.0 * 47.0 / 1000000); end; procedure TForm1.Button1Click(Sender: TObject); var a : Int64; b : Int64; c : Int64; d : Int64; Tmp : Double; begin a := 1500; b := 400; c := 4786; d := 47; tmp :=a * b * c * d / 1000000; //)と右の不正な文字を削除しました end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.