文件名称：Delphi常用公用函数
文件大小：15KB
文件格式：TXT
更新时间：2012-06-10 16:34:44
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 ChangeChineseToPY(aChinese: string; aIsCapital: Boolean; var oPYStr: string): string; //汉字转换成拼音码 function TrimTextOfEdt(aFormObject: TForm): string; //清除Form上EDIT的前后空格 function ClearTextOfEdt(aFormObject: TForm): string; //清除Form上EDIT的内容 function ClearCaptionOfPnl(aFormObject: TForm): string; //清除Form上Panel的内容 function SetReadOnlyOfEdt(aFormObject: TForm; aIs: Boolean): string; // 使FORM上EDIT不可写 function FullItemOfCB(aQry: TQuery; aFieldName: string; aCBObject: TComBoBox): string; //填充ComBoBox中的内容 function FullItemOfLB(aQry: TQuery; aFieldName: string; aLBObject: TListBox): string; //填充ListBox中的内容 function FilterQry(aQry: TQuery; aFieldName: string; aFilterValue: string): string; //对单个字段的过滤 function FilterPiPeiMa(aQry: TQuery; aFilterValue: string): string; //对拼音码，五笔码，自定码的组合过滤 function FilterQryByDBG(aQry: TQuery; aDBGrid: TDBGrid; aFilterValue: string): string; //对DBGrid的指定列的过滤 function LocateQryByDBG(aQry: TQuery; aDBGrid: TDBGrid; aLocateValue: string): string; //对DBGrid的指定列的定位 function SetLocalTimeForServerTime(aQry: TQuery): string; //设置本机时间为服务器时间 function SwapQueryRecord(aIsUp: Boolean; var oQry: TQuery): string; //交换记录 // function GetPaperSize(aPaperSizeStr: string): TQRPaperSize; function GetQRBandType(aQRBandTypeStr: string): TQRBandType; function GetAlignment(aAlignmentStr: string): TAlignment; function GetBoolean(aBooleanStr: string): Boolean; function GetColor(aColorStr: string): TColor; function GetFontStyle(aFontStyleStr: string): TFontStyles; function GetDataType(aDataTypeStr: string): TQRSysDataType; function GetPageOptions(aOptionStr: string): TQuickReportOptions; function GetPageOrientation(aOrientationStr: string): TPrinterOrientation;