v1.6.9
This commit is contained in:
parent
c3432d1812
commit
5469ca318d
|
|
@ -1,4 +1,4 @@
|
||||||
// Version 1.6.8
|
// Version 1.6.9
|
||||||
Function TOfficeObj(n);
|
Function TOfficeObj(n);
|
||||||
Begin
|
Begin
|
||||||
case lowercase(n) of
|
case lowercase(n) of
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
// Version 1.6.8
|
// Version 1.6.9
|
||||||
Type TSDocxFile = Class
|
Type TSDocxFile = Class
|
||||||
///Version: V1.0 2022-09-20
|
///Version: V1.0 2022-09-20
|
||||||
///适用于 Microsoft Word docx格式文件
|
///适用于 Microsoft Word docx格式文件
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
// Version 1.6.8
|
// Version 1.6.9
|
||||||
Type TSXlsxFile = Class
|
Type TSXlsxFile = Class
|
||||||
///Version: V1.0 2022-08-08
|
///Version: V1.0 2022-08-08
|
||||||
///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。
|
///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。
|
||||||
|
|
@ -222,7 +222,7 @@ Type TSXlsxFile = Class
|
||||||
value := class(TSXml).CurCodePageToUtf8(val);
|
value := class(TSXml).CurCodePageToUtf8(val);
|
||||||
// 处理cell设定的样式
|
// 处理cell设定的样式
|
||||||
if not ifarray(opt) then opt := array();
|
if not ifarray(opt) then opt := array();
|
||||||
workbook_.SetCellStyleOpt(sheet, axis, opt);
|
workbook_.SetCellStyleOpt(sheet_name, axis, opt);
|
||||||
SetCellType(sheet, axis, value, opt);
|
SetCellType(sheet, axis, value, opt);
|
||||||
return workbook_.SetCellValue(sheet_name, axis, value, opt);
|
return workbook_.SetCellValue(sheet_name, axis, value, opt);
|
||||||
End;
|
End;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue