DevExpress cxSpreadSheet 自动换行时中文乱码问题的解决

cxSpreadSheet和F1Book等都提供了类似Excel的操作， 但是相比F1Book, cxSpreadSheet的中文支持还不是很完善。在设置了wordbreak为true的时候，里面的中文经常出现乱码。 下面是解决的方法：

 

修改cxSSPainterWrapper 单元的函数

 

 

 

1. procedure TcxCanvasWrapper.SplitToTextBricks(const AText: TcxString; ARect: TRect;
3. HAlign: TcxHorzTextAlign; VAlign: TcxVertTextAlign; var ATextBricks: TWordExtents);

中的ScanWord函数, 在如下代码

 

 

1. if (I > BreakPos) and (Count > 1) then
3. begin
5.     Dec(Count);
7.     Dec(EndPos);
9. end;

后面加上下面的代码。

 

1. if ByteType(AText, startPos + Count -1) = mbLeadByte then
2. begin
3. ·Dec(Count);
4. ·Dec(EndPos);
5. end;

其实很简单，只要判断一下是否是半个汉字。