xlsreadwriteII2的一个unicode的bug

xlsreadwriteII2 是一个很好用的delphi读写excel文件（xls）的控件。但是实际使用中发现不少bug。

 

 

输出的单元格内容，如果没有汉字，只有字母和数字，控件会输出acsii字符串。但是，如果除了字母、数字，另外含有“±”这个字符，xlsreadwriteII2 输出ascii，变成乱码。包含“±”必须输出为unicode字符串。

 

 

问题出在 SST2.pas 中的下面那个函数上，英文(非双字节)的 Unicode 的高位好象是 0 所以这个函数返回就是 FALSE ，那 AddString 就调用错了。

 

function TSST2.IsUnicode(S: WideString): boolean; var i: integer; W: word; begin for i := 1 to Length(S) do begin W := Word(S[i]); if (W and $FF00) <> 0 then begin Result := True; Exit; end; end; Result := False; end; AddString 函数是根据上面那函数来确定调用 AddCompressedString 还是 AddUnicodeString function TSST2.AddString(S: WideString): PXLSString; begin if IsUnicode(S) then Result := AddUnicodeString(S) else Result := AddCompressedString(S); //±会被当成acsii输出，乱码 end; 解决办法： 把AddString改成如下： function TSST2.AddString(S: WideString): PXLSString; begin //if IsUnicode(S) then // Result := AddUnicodeString(S) //else // Result := AddCompressedString(S); Result := AddUnicodeString(S); //改成无论如何都输出unicode！ end;