修正ComboBox删除中文的乱码问题

这个问题我前几天已经给出了解答,本文想说的并不是如何去解决这个问题,而是说一种解决问题的思想
其实VCL中许多小陷阱都是可以自己来解决的,它们并不会对实际的开发带来多大的麻烦。
D2007下,如果AutoComplete设为True,则用BackSpace删除中文时,会产生乱码。反之,如果关闭AutoComplete就不会有问题,于是首先想到的是AutoComplete带来的问题。于是,直接在StdCtrls.pas里搜了下AutoComplete。在TcustomComboBox类下,用到AutoComplete的只有一处,即3355行的if not AutoComplete then exit;
这行代码位于KeyPress方法下,一看就明白了,就是按下键时的处理。看到下面那个case语句,里面有单独对VK_BACK的处理,好了,就是它了,打个断点跟进去。
我事先在TComboBox里输入了”一二三“,然后运行,按BackSpace键,就进入了断点,跟踪情况如下:
if (Style in [csDropDown, csSimple]) and (Length(Text) > 0) then
begin
SaveText := Text;
LastByte := StartPos;  <-- 此处跟踪得到的值是3,但是我明明输入三个汉字,应该是6。于是此处就能认为光标位置是按unicode处理的。
while ByteType(SaveText, LastByte) = mbTrailByte do Dec(LastByte);
OldText := Copy(SaveText, 1, LastByte - 1);  <-- 此处已产生了乱码,说明Copy语句有问题
SendMessage(Handle, CB_SETCURSEL, -1, 0);
Text := OldText + Copy(SaveText, EndPos + 1, MaxInt);
SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(LastByte - 1, LastByte - 1));
FFilter := Text;
end
看到OldText乱码后,下面的已经没有必要看了,原因很简单,取字符长度时,按Unicode取了,而Copy函数执行时,传入的却是Ansi的字符串,即SaveText
于是最简单的解决方案就有了,

直接把SaveText, OldText的类型改成WideString,改后问题解决。
然后再说一下如何把修改过的东西弄进Delphi里,当你直接修改了StdCtrls.pas后,编译程序,并不会重新生成StdCtrls.dcu。这里有一个小技巧,你可以把StdCtrls.pas另存到你的项目下,然后把它添加到项目里编译,这样在你的项目下就会生成一个StdCtrls.dcu,把这个dcu复制到Delphi下的Lib目录里,就行了
这样你就拥有了一个修正了的StdCtrls.dcu。对于其他的修改,也可以这么做。

原文地址:https://www.cnblogs.com/SouthAurora/p/1716029.html