汉字笔画，up有分
在窗体上放置2个edit，在edit1中用户不论输入繁体字还是简体字，edit2中将显示正确的笔画，请问代码如何写？up一律有分，解决问题者单独送100分。
注1：baidu出来的通用函数function GetBiHua(chnstr:string):integer;我测试了不支持繁体。
注2:baidu:利用排序规则特点计算汉字笔画和取得拼音首字母 文章说采用他的方法支持计算繁体字笔划，但实现环境是sql，我希望能脱离sql环境，在delphi中实现。要详细代码，谢谢！我的qq：2564540。
[解决办法]
procedure TfrmMain.Edit1Change(Sender: TObject);
begin
edit2.text:=IntToStr(GetBiHua(Trim(Edit1.Text));
end;
具体怎么实现还得看这个函数的要求吧，帮顶吧，没写过这方面的代码。
[解决办法]
http://www.programbbs.com/doc/4884.htm
看看这个对你有用吗
[解决办法]
UP
[解决办法]
我真的UP了。
[解决办法]
Delphi 计算汉字比画的函数,看对你可有用?
http://developer.51cto.com/art/200510/7520.htm
[解决办法]
UP了...
[解决办法]
up
