Delphi常用公用函数

function CapitalizeMoney(aMoney: Double; aIsUnit: Boolean; var oMoneyStr: string): string; //小写人民币转换成大写人民币 function IsExistForm(aFormObject: string): Boolean; //查询窗体是否存在 function CalcAmountOfField(aQry: TQuery; aFieldName: string; var oAmountStr: string): string; //计算合计 function ChangeChineseToP