function CapitalizeMoney(aMoney: Double; aIsUnit: Boolean; var oMoneyStr: string): string; //小写人民币转换成大写人民币 function IsExistForm(aFormObject: string): Boolean; //查询窗体是否存在 function CalcAmountOfField(aQry: TQuery; aFieldName: string; var oAmountStr: st
一个DBGrid转excel文件的类 Delphi环境,用的XLSReadWrite。下面代码设置列宽,导出数据时应将AutoFitColWidths属性值设置为False XLS.Sheet[0].Columns.AddIfNone(0,FColumnCount); FitColWidths:=FDBGridEh.AutoFitColWidths; FDBGridEh.AutoFitColWidths:=False; for i:=0 to FColumnCount-
Delphi7.0读入数据到DBGrid并向Word中插入表格,其实就是Delphi向Word中插入表格,测试数据由Delphi从SQLSERVER中读取,然后放入DBGrid中,再将DBGrid网格中的数据通过Word转换成表格。 begin if TStringGrid(DBGrid1).RowCount>0 then begin //创建一个word对象 wordApp:=CreateOleObject(Word.Application); w