lazarus向excel写数据-Excel教程

时间:2016-04-04 17:09 来源: 我爱IT技术网作者:佚名

由于lazarus中使用UTF8编码，导致向excel写入汉字文本时经常出现乱码，通过设置变量类型，以及中间函数转换，可以向excel写入正确汉字。

开发工具lazarus开发工具codetyphon(二者具备其一即可)

在uses部分，引入ComObj包。

lazarus向excel写数据

设置导出的变量类型为WideString：

Var

XLApp: OLEVariant;

Sheet1: Variant;

s: WideString;

lazarus向excel写数据

对s赋值后，用UTF8Decode函数进行一次变量转换。

lazarus向excel写数据

对单元格进行赋值：

XLApp :=CreateOleObject('Excel.Application'); // requires comobj in uses

XLApp.Visible :=true;

XLApp.WorkBooks.Add;

Sheet1 :=XLApp.workBooks[1].WorkSheets[1];

s :=UTF8Decode('中国');

Sheet1.Cells[8, 8].Value :=s;

输出结果。

lazarus向excel写数据

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。

评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）