100点求一个计算汉字笔划数的函数,要delphi语言的!急! 急!我想实现office那样的人名排序用! 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 function GetBiHua(chnstr:string):integer; const BiHuaTable= #10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+ #10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+ #12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+ #7#10#7#21#10#8#5#9#6#13#8#8#9#13#12#10+ #13#7#10#10#8#8#7#8#7#19#5#4#8#6#9#10+ #14#14#9#12#15#10#15#12#12#8#9#5#15#10#16#13+ #9#12#8#8#8#7#15#10#13#19#8#13#12#8#5#12+ #9#4#9#10#7#8#12#12#10#8#8#5#11#11#11#9+ #9#18#9#12#14#4#13#10#8#14#13#14#6#10#9#4+ #7#13#6#11#14#5#13#16#17#16#9#18#5#12#8#9+ #9#8#4#16#16#17#12#9#11#15#8#19#15#7#15#11+ #12#16#13#10#13#7#6#9#5#8#9#9#10#6#9#11+ #15#8#10#8#12#9#13#10#14#7#8#11#11#14#12#8+ #7#10#2#10#7#11#4#5#7#19#10#8#17#11#12#7+ #3#7#13#15#8#11#11#14#16#8#10#9#11#11#7#7+ #10#4#7#17#16#16#15#11#9#8#12#8#5#9#7#19+ #12#3#9#9#9#14#12#14#7#9#8#8#10#10#12#11+ #11#12#11#13#11#6#11#19#8#11#6#9#11#4#11#7+ #2#12#8#11#10#12#7#9#12#15#15#11#7#8#4#7+ #15#12#7#15#10#6#7#6#11#7#7#7#12#8#15#10+ #9#16#6#7#8#12#12#15#8#8#10#10#10#6#13#9+ #11#6#7#6#6#10#8#8#4#7#10#5#9#6#6#6+ #11#8#8#13#12#14#13#13#13#4#11#14#4#10#7#5+ #16#12#18#12#13#12#9#13#10#12#24#13#13#5#12#3+ #9#13#6#11#12#7#9#12#15#7#6#6#7#8#11#13+ #8#9#13#15#10#11#7#21#18#11#11#9#14#14#13#13+ #10#7#6#8#12#6#15#12#7#5#4#5#11#11#15#14+ #9#19#16#12#14#11#13#10#13#14#11#14#7#6#3#14+ #15#12#11#10#13#12#6#12#14#5#3#7#4#12#17#9+ #9#5#9#11#9#11#9#10#8#4#8#10#11#9#5#12+ #7#11#11#8#11#11#6#9#10#9#10#2#10#17#10#7+ #11#6#8#15#11#12#11#15#11#8#19#6#12#12#17#14+ #4#12#7#14#8#10#11#7#10#14#14#7#8#6#12#11+ #9#7#10#12#16#11#13#13#9#8#16#9#5#7#7#8+ #11#12#11#13#13#5#16#10#2#11#6#8#10#12#10#14+ #15#8#11#13#2#7#5#7#8#12#13#8#4#6#5#5+ #12#15#6#9#8#9#7#9#11#7#4#9#7#10#12#10+ #13#9#12#9#10#11#13#12#7#14#7#9#12#7#14#12+ #14#9#11#12#11#7#4#5#15#7#19#12#10#7#9#9+ #12#11#9#6#6#9#13#6#13#11#8#12#11#13#10#12+ #9#15#6#10#10#4#7#12#11#10#10#6#2#6#5#9+ #9#2#9#5#9#12#6#4#9#8#9#18#6#12#18#15+ #8#8#17#3#10#4#7#8#8#5#7#7#7#7#4#8+ #8#6#7#6#6#7#8#11#8#11#3#8#10#10#7#8+ #8#8#9#7#11#7#8#4#7#7#12#7#10#8#6#8+ #12#12#4#9#8#13#10#12#4#9#11#10#5#13#6#8+ #4#7#7#4#15#8#14#7#8#13#12#9#11#6#9#8+ #10#11#13#11#5#7#7#11#10#10#8#11#12#8#14#9+ #11#18#12#9#12#5#8#4#13#6#12#4#7#6#13#8+ #15#14#8#7#13#9#11#12#3#5#7#9#9#7#10#13+ #8#11#21#4#6#9#9#7#7#7#12#7#16#10#10#14+ #10#16#13#15#15#7#10#14#12#4#11#10#8#12#9#12+ #10#12#9#12#11#3#6#9#10#13#10#7#8#19#10#10+ #11#3#7#5#10#11#8#10#4#9#3#6#7#9#7#6+ #9#4#7#8#8#9#8#8#11#12#11#8#14#7#8#8+ #8#13#5#11#9#7#8#9#10#8#12#8#5#9#14#9+ #13#8#8#8#12#6#8#9#6#14#11#23#11#20#8#6+ #3#10#13#8#6#11#5#7#9#6#9#8#9#10#8#13+ #9#8#12#13#12#12#10#8#8#14#6#9#15#9#10#10+ #6#10#9#12#15#7#12#7#11#12#8#12#7#16#16#10+ #7#16#10#11#6#5#5#8#10#17#17#14#11#9#6#10+ #5#10#8#12#10#11#10#5#8#7#6#11#13#9#8#11+ #14#14#15#9#15#12#11#9#9#9#10#7#15#16#9#8+ #9#10#9#11#9#7#5#6#12#9#12#7#9#10#6#8+ #5#8#13#10#12#9#15#8#15#12#8#8#11#7#4#7+ #4#7#9#6#12#12#8#6#4#8#13#9#7#11#7#6+ #8#10#7#12#10#11#10#12#13#11#10#9#4#9#12#11+ #16#15#17#9#11#12#13#10#13#9#11#6#9#12#17#9+ #12#6#13#10#15#5#12#11#10#11#6#10#5#6#9#9+ #9#8#11#13#9#11#17#9#6#4#10#8#12#16#8#11+ #5#6#11#6#13#15#10#14#6#5#9#16#4#7#10#11+ #12#6#7#12#13#20#12#3#9#10#6#7#13#6#9#2+ #10#3#13#7#16#8#6#11#8#11#9#11#11#4#5#9+ #7#7#7#10#6#14#9#6#8#10#5#9#12#10#5#10+ #11#15#6#9#8#13#7#10#7#6#11#7#13#10#8#8+ #6#12#9#11#9#14#12#8#10#13#9#11#11#9#14#13+ #12#9#4#13#15#6#10#10#9#8#11#12#12#8#15#9+ #9#10#6#19#12#10#9#6#6#13#8#15#12#17#12#10+ #6#8#9#9#9#20#12#11#11#8#11#9#7#9#16#9+ #13#11#14#10#10#5#12#12#11#9#11#12#6#14#7#5+ #10#8#11#13#14#9#9#13#8#7#17#7#9#10#4#9+ #9#8#3#12#4#8#4#9#18#10#13#4#13#7#13#10+ #13#7#10#10#6#7#9#14#8#13#12#16#8#11#14#13+ #8#4#19#12#11#14#14#12#16#8#10#13#11#10#8#9+ #12#12#7#5#7#9#3#7#2#10#11#11#5#6#13#8+ #12#8#17#8#8#10#8#8#11#7#8#9#9#8#14#7+ #11#4#8#11#15#13#10#5#11#8#10#10#12#10#10#11+ #8#10#15#23#7#11#10#17#9#6#6#9#7#11#9#6+ #7#10#9#12#10#9#10#12#8#5#9#4#12#13#8#12+ #5#12#11#7#9#9#11#14#17#6#7#4#8#6#9#10+ #15#8#8#9#12#15#14#9#7#9#5#12#7#8#9#10+ #8#11#9#10#7#7#8#10#4#11#7#3#6#11#9#10+ #13#8#14#7#12#6#9#9#13#10#7#13#8#7#10#12+ #6#12#7#10#8#11#7#7#3#11#8#13#12#9#13#11+ #12#12#12#8#8#10#7#9#6#13#12#8#8#12#14#12+ #14#11#10#7#13#13#11#9#8#16#12#5#15#14#12#9+ #16#12#9#13#11#12#10#11#8#10#10#10#7#7#6#8+ #9#13#10#10#11#5#13#18#16#15#11#17#9#16#6#9+ #8#12#13#7#9#11#11#15#16#10#10#13#11#7#7#15+ #5#10#9#6#10#7#5#5#10#4#7#12#8#9#12#5+ #11#7#8#2#14#10#9#12#10#7#18#13#8#10#8#11+ #11#12#10#9#8#13#10#11#13#7#7#11#12#12#9#10+ #15#11#14#7#16#14#5#15#2#14#17#14#10#6#12#10+ #6#11#12#8#17#16#9#7#20#11#15#10#7#8#9#11+ #13#13#10#7#11#10#7#10#8#11#5#5#13#11#14#12+ #13#10#6#15#10#9#4#5#11#8#11#16#11#8#8#7+ #13#9#12#12#14#8#7#5#11#7#8#11#7#8#12#19+ #13#21#13#10#11#16#11#8#7#15#7#6#11#8#10#15+ #12#12#10#12#9#11#13#11#9#10#9#13#7#7#11#11+ #7#8#6#4#7#7#6#11#17#8#11#13#14#14#13#12+ #9#9#9#6#11#7#8#9#3#9#14#6#10#6#7#8+ #6#9#15#14#12#13#14#11#14#14#13#6#9#8#8#6+ #10#11#8#13#4#5#10#5#8#9#12#14#9#3#8#8+ #11#14#15#13#7#9#12#14#7#9#9#12#8#12#3#7+ #5#11#13#17#13#13#11#11#8#11#16#19#17#9#11#8+ #6#10#8#8#14#11#12#12#10#11#11#7#9#10#12#9+ #8#11#13#17#9#12#8#7#14#5#5#8#5#11#10#9+ #8#16#8#11#6#8#13#13#14#19#14#14#16#15#20#8+ #5#10#15#16#8#13#13#8#11#6#9#8#7#7#8#5+ #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; //上述几层楼的合并在一起即可. 高手接招，100分，不够再加100分 delphi还会辉煌吗？ 几行C++代码如何翻译成delphi?? 跪求各位了！！这个问题卡了我快半年了~~~~ 读取结构体数据的问题 小问题,关于typeof 能不能根据网卡的MAC地址找到注册表中相应网卡型号的建值？ 问一个调试问题 DLL调用问题，急啊！（解决后一定给分） 请问大家声明函数时，返回数据为数组类型，如何定义； 创建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; //上述几层楼的合并在一起即可.