XLSReadWriteII3.x读写unicode的bug

1、Sheet.asWideString[i,j]来读取Excel时要当心，如果该栏的资料全是数字型，那么会返回空白。看看代码吧：
SheetData2.pasfunction TSheet.GetAsWideString(Col, Row: integer): WideString;var Cell: TCell;begin Cell := FCells[ColRowToRC(Col,Row)]; if (Cell <> Nil) and (Cell.CellType = ctString) then Result := FCells.SST.Items[TStringCell(Cell).Value] else Result := '';end;
所以它只认识ctstring类型的栏。实际上这个函数是个陷阱，你完全可以用Sheet.asString[i,j]来读取Unicode，而且没有上面的问题。

2、用Sheet.asString[i,j]来写入unicode时，可能是乱码，用Sheet.asWideString[i,j]也可能乱码，用葡萄牙文试试：
写入前：Informação do usuário
写入后：Informa??o do usu¨¢rio
看看代码：
SheetData2.pasprocedure TSheet.SetAsWideString(Col, Row: integer; const Value: WideString);begin FCells[ColRowToRC(Col,Row)] := TStringCell.Create(ColRowToRC(Col,Row),FFormats,GetDefaultFormat(Col,Row),FCells.SST.AddString(Value)); end;
怎么办？可以这样修改，把“FCells.SST.AddString(Value)”修改为“FCells.SST.AddUnicodeString(Value)”
但是因为SST2.pas里面的AddUnicodeString函数在元件的Private区，需要把它移到public区来。