Delphi 2010 设置Excel 2003文本格式有关问题

Delphi 2010 设置Excel 2003文本格式问题。
代码如下:

ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Visible:=False;
ExcelApp.WorkBooks.Add;
ExcelApp.Cells[1,1]:=NumberFormatLocal:='@';
ExcelApp.Cells[1,1]:='000000';

理论上，单元格应该显示000000
实际上，单元格显示的是64
我理解为Delphi 强制将@转换成Ascii码的10进制值64送入Excel,有什么方法可以阻止这种转换？
Delphi Excel 文本格式
[解决办法]
我之前从D7升级到D2010时就碰到这样的问题，不少导出都变了。
后来研究发现，是因为D2010支持UNICODE，所以，在设定成'@'时，会变成UNICODE格式的'@'。
所以，先声明一个变量（我是用全局变量），类型为ansistring，值是'@'，这样，在设定格式时，就用这个变量。

查看更多 下一篇