掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
異なる実数型の計算エラーを回避する方法 (ID:5252)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
try exceptで実行時エラー（例外）を処理すれば良いと思います。 procedure TForm1.Button1Click(Sender: TObject); var x:double; y:double; xy:single; begin x:=minsingle; y:=mindouble; try xy:=x/y; //＜-ここでエラー except // try .. except間で実行時エラー（例外）が発生すると // ここに飛んでくる。 // オーバーフローか０の割り算かなど判定したい場合は、 // on .. do .. を記述します。 showmessage('エラー'); // <= とりあえずエラー表示 end; showmessage(floattostr(xy)); end; 詳しくは、ヘルプでtryまたはexceptを検索してみてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.