名前 題名 ▼ Mr.XRAYさん > ▼ Syakeさん > > > //------------------------------------------------------- > > var > > s :Single; > > i :Integer; > > begin > > s := 0; > > for i := 0 to 9 do s := s + 0.01; > > ShowMessage(FloatToStr(s)); > > end; > > //------------------------------------------------------- > > こちらの方が例題としてはいいですね〜。 > ではいただき。明日、早速追加しよ〜っと。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link