名前 題名 ▼ おかぽんさん > ▼ Mr.XRAYさん > > 予想が外れました. > あ〜・・・すみません。 > > procedure TForm1.Button1Click(Sender: TObject); > var > LValue : Double; > begin > LValue := RoundAct(565.49999999999994); > Memo1.Lines.Add(FloatToStr(LValue)); > LValue := RoundAct(565.49999999999995); > Memo1.Lines.Add(FloatToStr(LValue)); > end; > > doubleの有効桁数16桁を超えた値で、565と566になることは確認しました。 > こんなレスならば、当たりでしたでしょうか。 > > > ところで,www42.tok2.com はまだ復活していないようです. > そのまま消え去ってネットの海の藻屑となる・・? GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link