使用方法:
procedure TForm8.btn2Click(Sender: TObject);
var
vp, vq, vn: TBigInteger;
begin
vp := TBigInteger.Create(edtP.Text);
vq := TBigInteger.Create(edtQ.Text);
vn := TBigInteger.Create(1);
vn.Copy(vp);
vn.Multiply(vq);
edtN.Text := '积:' + vn.ToString;
vP.Free;
vq.Free;
vn.Free;
end;
procedure TForm8.btn3Click(Sender: TObject);
var
vp, vq, vn: TBigInteger;
begin
vp := TBigInteger.Create(edtP.Text);
vq := TBigInteger.Create(edtQ.Text);
vn := TBigInteger.Create(1);
vn.Copy(vp);
vn.Add(vq);
edtN.Text := '和:' + vn.ToString;
vP.Free;
vq.Free;
vn.Free;
end;
procedure TForm8.btn4Click(Sender: TObject);
var
vp, vq, vn, vMod: TBigInteger;
begin
vp := TBigInteger.Create(edtP.Text);
vq := TBigInteger.Create(edtQ.Text);
vn := TBigInteger.Create(1);
vMod := TBigInteger.Create(1);
vn.Copy(vp);
vn.Division(vq, vMod);
edtN.Text := '商:' + vn.ToString + '余数:' + vMod.ToString;
vP.Free;
vq.Free;
vn.Free;
end;