|
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;
|