کد:
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 جمع اعداد اعشاری را بر می گرداند