解决ExpressSpreadSheet 中文乱码问题

    最近公司项目需要一个类似Execl的编辑器，加入到工程项目里面，以用于编辑上传的Execl文档，笔者网上搜了下，找到了几个类似的控件，但都是要付费的，如华表Cell，FlexCell。最后还是决定用DevExpress的SpreedSheet.开发中发现，单元格输入中文时，可能出现乱码，还好有Full.Source，选用Auto-Installer安装，方便快捷。

    经过笔者一番思考，确定了几个可能性的问题：

（1） 可能是文字编码问题。于是设置了每个Cell的编辑为GB2313，问题依旧。

（2） 可能是Paint到Cell时，由于WordBreak时，把整串的字符串分离在N块，每个中文占两个字符，由于分离时程序不知道是不是含有中文字符，所以遇到刚好中文时，这个中文被切成两半，就出现乱码。鬼老的东西咋就只考虑他们啊，都不考虑Locale啊！

    排除了编码问题后，就着手第二个问题的研究，好在DevExpress还提供FullSource，笔者费尽九牛二虎之力，看懂SpreedSheet的部分源代码。找到了那个Paint到控件文字代码，就在[cxSSPainterWrapper.pas]这个文件里面，Paint的代码段就在ScanWord函数里面，代码如下:

procedure ScanWord(const AText: TcxString; var StartPos: Integer; var TextBrick: TcxTextBrick); var I: Integer; BreakPos: Integer; Count: Integer; W: Integer; EndPos: Integer; begin BreakPos := 0; TextBrick.Text := ''; Count := 0; //过滤文字前面的空字符 while (StartPos <= Length(AText)) and (AText[StartPos] = ' ') do Inc(StartPos); EndPos := StartPos; //遍历字符串 for I := StartPos to Length(AText) do begin Inc(EndPos); if AText[I] = #10 then Break else begin Inc(Count); if dxCharInSet(AText[I], [' ', '-']) then BreakPos := Count; W := ExTextExtent(@AText[StartPos], Count).CX;//子串在屏幕上打印的宽度 if W > AWidth then begin //----------------------------------------------------- //解决中文显示乱码的问题 add by chenxuan on 2010.01.13 if ByteType(AText, I-1) = mbLeadByte then begin Dec(Count); Dec(EndPos); end; //----------------------------------------------------- if (I > BreakPos) and (Count > 1) then begin Dec(Count); Dec(EndPos); end; if BreakPos <> 0 then begin Count := BreakPos; EndPos := StartPos + Count; end; Break; end; end; end; while (Count > 0) and (AText[StartPos + Count - 1] = ' ') do Dec(Count); if Count = 0 then begin TextBrick.Text := ''; StartPos := EndPos; end else begin with TextBrick do begin TextBrick.Text := Copy(AText, StartPos, Count); if HAlign = haJustify then begin BreakCount := 0; BreakExtra := 1; for I := 1 to Length(Text) do if Text[I] = ' ' then Inc(BreakCount); if BreakCount > 0 then begin while AWidth > ExTextExtent(@AText[StartPos], Count).CX do begin Inc(BreakExtra); SetTextJustification(DC, BreakExtra, BreakCount); end; end; end; end; StartPos := EndPos; end; end;

如上代码所示，笔者只是加到了一个IF语句，判断检查的位置是否是中文的第一个字符，如果是就跳回到上一个字符位置，把半个汉字字符留给下一行。一切OK...