<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 CnXlsWriter更新一个bug<br /><small>没找到老刘,所以就发在这里了.管理员看到了更新一下吧.<br />
 <br />
修改这个函数即可.以前的代码会搞错int64和extended,因为variant里貌似没这个类型.现在把用string写入varriant的整型和浮点型,都在前面加个',防止被科学计数...<br />
 <br />
[code]<br />
procedure TCnXlsWriter.SetCells(const ACol: Byte; const ARow: Word; const Value: Variant);<br />
var<br />
  aStr: string;<br />
  aInt: Integer;<br />
  aFloat: Double;<br />
  aCode: Integer;<br />
begin<br />
  case VarType(Value) of<br /> ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=6833&amp;start=0&amp;offset=497&amp;sid=DoNKDm">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=14&amp;sid=DoNKDm">CnVCL 组件包</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=6833&amp;sid=DoNKDm">CnXlsWriter更新一个b ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=7782&amp;sid=DoNKDm">TCnRawKeyBoard 如何 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=DoNKDm">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>