|
2015/3/25 (水) 12:05:39 snail |
アプリを起動中に Hyper-V 環境を切断すると必ず発生する
エラーを調べるため、いつか読んだ DEKO さんのアプリを探していたら
こんな記事を発見。
http://ht-deko.minim.ne.jp/delphiforum/?vasthtmlaction=viewtopic&t=1252
＞しかしながら、XE2 以降だと BCD 演算が手軽に行えるようになっています。
＞演算子のオーバーロードにより演算子が普通に使えるのです。
＞実際のコードは以下のようになります。
＞var
＞ i: Integer;
＞//Value1, Value2: Currency;
＞ Value1, Value2: TBCD;
＞begin
＞ Value1 := 1.2345;
＞ Value2 := 0.12345;
＞ for i:=1 to 10 do
＞ Value1 := Value1 - Value2;
＞ if Value1 = 0 then
＞ ShowMessage('Zero')
＞ else
＞ ShowMessage('Non Zero');
＞end;
今までわざわざ関数使っていたのに、
知らないというのは悲しい。
|
|