大數運算

先去http://www.submanifold.be/網站下載FGInt.zip回來用就可以囉~

uses FGInt;

procedure TForm1.Button1Click(Sender: TObject);
var
    a,b,c:TFGInt;
    s:string;
begin
    FGInt.Base10StringToFGInt('987654321',a); //a = 987654321
    FGInt.Base10StringToFGInt('123456789',b); //b = 123456789

    FGInt.FGIntAdd(a,b,c); // c = a + b
    FGint.FGIntToBase10String(c,s);
    showmessage(s);

    FGInt.FGIntSub(a,b,c); // c = a - b
    FGint.FGIntToBase10String(c,s);
    showmessage(s);

    FGInt.FGIntMul(a,b,c); // c = a * b
    FGint.FGIntToBase10String(c,s);
    showmessage(s);

    FGInt.FGIntDiv(a,b,c); // c = a / b
    FGint.FGIntToBase10String(c,s);
    showmessage(s);
end;