کامپوننت 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 جمع اعداد اعشاری را بر می گرداند
طول اعداد اعشاری در این کامپوننت محدودیت ندارد