急!我想实现office那样的人名排序用!
解决方案 »
- 调用c#写的webservice,传入参数为空
- DLL里创建ADO控件Connection := tadoconnection.Create(self);出错,有关self与nil.
- 如何让Ctrl+Space键改为响应别的事件?
- 新起點, 新開始,女孩子願意做程序的可以過來看看.^_^
- 如何对InterBase数据库进行备份(数据导入导出)。用dbexcepress操作数据库
- 如何使函数返回一个const数组(的引用)?
- 很简单,如何把在表单上的一个控件放到组件板上以便下次使用?
- 在线等待 网卡启用和禁用
- constructor TDanHint.Create(AOwner:TComponent);//(AOwner:TComponent);代表什么
- MAC校验算法是什么东西?请高手指点指点,或给个小例子,谢谢!
- 创建TFileStream,用idicpserver发送,怎么总抱错?
- INI文件怎么用?
#23#11#12#8#8#9#9#10#11#13#13#14#14#14#15#0+ #8#9#9#9#9#10#11#11#11#11#12#12#12#12#13#13+ #13#13#13#13#14#14#14#14#14#15#15#16#17#19#24#5+ #9#11#12#9#6#9#10#11#12#13#14#15#15#16#16#22+ #12#8#11#11#11#12#15#16#12#9#10#10#12#12#12#12+ #13#15#15#16#16#16#18#20#21#0#10#7#8#9#9#9+ #9#10#10#10#10#10#10#10#10#10#10#11#11#11#11#11+ #11#11#11#11#11#11#12#12#12#12#12#12#12#12#12#12+ #12#12#13#13#13#13#13#13#13#13#14#14#14#14#14#14+ #14#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15+ #15#15#15#15#15#15#16#16#16#16#16#16#16#16#16#16+ #17#17#17#17#17#17#17#17#17#17#17#18#18#18#18#19+ #19#19#19#20#21#24#26#6#14#17#17#10#8#9#9#9+ #10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+ #11#12#12#12#12#12#12#13#13#13#13#13#13#14#14#14+ #14#14#14#14#14#14#14#14#14#15#15#15#15#16#16#16+ #16#16#17#17#17#17#17#17#18#18#18#19#19#19#8#9+ #11#12#10#10#9#9#9#10#10#10#10#11#11#11#11#12+ #13#13#14#15#17#18#19#10#10#11#13#13#19#11#11#13+ #15#15#16#9#10#10#11#11#12#12#13#14#14#14#15#15+ #15#15#15#16#18#6#14#9#11#12#14#14#15#15#16#17+ #6#12#14#14#17#25#11#19#9#12#13#13#23#11#15#10+ #11#9#10#10#10#12#12#12#13#13#13#14#14#14#14#14+ #15#15#16#16#16#17#17#18#19#19#19#20#20#21#7#16+ #10#13#14#18#18#10#10#11#11#11#12#12#12#12#12#12+ #12#12#13#13#13#13#13#13#13#14#14#15#15#15#15#15+ #15#15#15#16#16#16#16#16#16#16#16#17#17#17#19#19+ #19#19#19#20#21#22#22#23#24#7#12#13#13#17#17#11+ #11#12#12#13#13#14#15#13#18#12#11#12#12#14#14#15+ #16#16#19#19#20#22#10#13#13#13#14#14#15#15#17#8+ #12#20#8#10#10#13#14#18#18#14#14#15#16#17#18#18+ #21#24#12#12#13#13#13#13#13#13#13#13#14#14#14#14+ #14#14#14#14#15#15#15#15#15#15#15#15#15#15#16#16+ #16#16#16#16#16#16#16#16#16#16#17#17#17#17#17#17+ #17#17#18#18#18#18#18#19#19#19#19#19#19#20#20#20+ #21#14#14#15#15#16#18#18#18#19#19#13#13#14#14#14+ #15#15#17#17#18#18#19#19#22#14#14#15#16#16#17#19+ #12#15#18#22#22#10#13#14#15#15#16#16#16#18#19#20+ #23#25#14#15#17#13#16#16#17#19#19#21#23#17#17#17+ #18#18#19#20#20#20#20#21#17#18#20#23#23#16#17#23; var no:integer; BiHua:integer; str:string; // str[40] BiHuaI:integer; ch1:char; ch2:char; len:integer; begin str:=chnstr; BiHuaI:=1; BiHua:=0; len:=length(str); while BiHuaI<=len do begin ch1:=str[BiHuaI]; BiHuaI:=BiHuaI+1; if (ord(ch1)>=176) and (BiHuaI<=len) then begin ch2:=str[BiHuaI]; //BiHuaI:=BiHuaI+1; ----这一行在只查一个汉字的时候用不着 2002.10 no:=(ord(ch1)-176)*94+(ord(ch2)-160); BiHua:=ord(BiHuaTable[no]); end else begin BiHua:=0; end; break; // 只要查出第一个汉字即可 end; result:=BiHua; end; //上述几层楼的合并在一起即可.