کامپوننت BigFloat

[مجید]

کامپوننت BigFloat برای کار با اعداد اعشاری بزرگ

  TBigFloatCollection = class(TList)
  private
    FBigFloatList:TBigFloatList;
    function GetBigFloatList : TBigFloatList;
    procedure SetBigFloatList(val : TBigFloatList);
  public
    constructor Create;
    destructor Destroy; override;
    property BigFloatList : TBigFloatList read GetBigFloatList write SetBigFloatList;
    procedure AddStrBigFloat(aBigFloatStr: String);
    procedure AddBigFloat(aBigFloat: TBigFloat);
    function GetSum: TBigFloat;
    class function StrToBigFloat(aValue: String): TBigFloat;
    class function BigFloatToStr(aValue: TBigFloat): String;
    class function GetBigFloatDecimal(aValue: TBigFloat): String;
    class function CurrToBigFloat(aValue: Currency): TBigFloat;
    procedure SortArray;
  end;

تابع GetSum جمع اعداد اعشاری را بر می گرداند
طول اعداد اعشاری در این کامپوننت محدودیت ندارد