円グラフの書き方 (ID:36713)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Mr.XRAYです．横から失礼します． >実際の定義はないけど、あたかもSystemで定義されているかのように扱われるよ」 Piの値は実行時に(正確にはコンパイル時)にインライン展開されます． その他にも，このような動作をする関数類があります． Piのインライン展開を，Delphiが実際にはどのようにするのかは不明ですが， 以下のPiValueのような関数で(作成して)FPUから直接値を取得することもできます． (FPU CPUの浮動小数点演算ユニット) // 円周率をFPU内蔵関数(命令)で取得する関数 function PiValue: Double; asm FLDPI; end; // 関数PiValueのテスト procedure TForm1.Button1Click(Sender: TObject); var X : Double; S : String; begin X := PiValue; S := FormatFloat('####.000000000000000', X); ShowMessage(S); end; Buttonクリック内にアセンブラコードを書くのであれば， おそらくDelphiではこのように展開しているのでは.. (未確認) procedure TForm1.Button2Click(Sender: TObject); var X : Double; S : String; begin // 関数Piのインライン展開か? asm FLDPI; fstp X; end; S := FormatFloat('####.000000000000000', X); ShowMessage(S); end;