名前
題名
▼ snail3さん > BCD 型の使い方です。こんな感じで使えます。 > > > procedure TForm1.Button2Click(Sender: TObject); > var > WrkBCD1 : TBcd; > WrkBCD2 : TBcd; > WrkBCD : TBcd; > begin > WrkBCD1 := StrToBcd( Edit1.Text ); > WrkBCD2 := StrToBcd( Edit2.Text ); > > // 加算 BcdAdd(const TBcd bcdIn1, const TBcd bcdIn2, TBcd bcdOut); > // 減算 BcdSubtract(const TBcd bcdIn1, const TBcd bcdIn2, TBcd bcdOut); > // 乗算 BcdMultiply(const TBcd bcdIn1, const TBcd bcdIn2, TBcd bcdOut); > // 除算 BcdDivide(const TBcd Dividend, const TBcd Divisor, TBcd bcdOut); > BcdAdd( WrkBCD1, WrkBCD2, WrkBCD ); > Button2.Caption := BcdToStr( WrkBCD ); > > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link