掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
小数点以下が何桁か調べたいです。 (ID：8249)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
面倒あらへんで。これ全部いけるんチャウか？ procedure TForm1.Button1Click(Sender: TObject); var DecVal: TFloatRec; Value : extended; Ketasu: Integer; begin Value := 0.01; // → 2 Value := 2E-100; // → 100 Value := 2E100; // → 0 Value := 2.01E1; // → 1 Value := 2.01E-1; // → 3 Value := 2.01E-100; // → 102 Value := 0.010000000001; // → 12 FloatToDecimal(DecVal, Value, fvExtended, 18, 9999); Ketasu := StrLen(DecVal.Digits) - DecVal.Exponent; if Ketasu > 0 then begin Edit1.Text := '小数点以下の桁数〓'+ IntToStr(StrLen(DecVal.Digits) - DecVal.Exponent); end else begin Edit1.Text := '小数点以下あらへんで'; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.