[推荐]Delphi 计算汉字比画的函数

明月独上西楼

<IMG src="http://www.400.com.cn/images/Emotions/65.gif"><IMG src="http://www.400.com.cn/images/Emotions/65.gif">这里没有几个会看得懂得！

麻虎子

<>function GetBiHua(chnstr:string):integer;<BR>const<BR>BiHuaTable=<BR>#10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+<BR>#10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+<BR>#12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+<BR>#7#10#7#21#10#8#5#9#6#13#8#8#9#13#12#10+<BR>#13#7#10#10#8#8#7#8#7#19#5#4#8#6#9#10+<BR>#14#14#9#12#15#10#15#12#12#8#9#5#15#10#16#13+<BR>#9#12#8#8#8#7#15#10#13#19#8#13#12#8#5#12+<BR>#9#4#9#10#7#8#12#12#10#8#8#5#11#11#11#9+<BR>#9#18#9#12#14#4#13#10#8#14#13#14#6#10#9#4+<BR>#7#13#6#11#14#5#13#16#17#16#9#18#5#12#8#9+<BR>#9#8#4#16#16#17#12#9#11#15#8#19#15#7#15#11+<BR>#12#16#13#10#13#7#6#9#5#8#9#9#10#6#9#11+<BR>#15#8#10#8#12#9#13#10#14#7#8#11#11#14#12#8+<BR>#7#10#2#10#7#11#4#5#7#19#10#8#17#11#12#7+<BR>#3#7#13#15#8#11#11#14#16#8#10#9#11#11#7#7+<BR>#10#4#7#17#16#16#15#11#9#8#12#8#5#9#7#19+<BR>#12#3#9#9#9#14#12#14#7#9#8#8#10#10#12#11+<BR>#11#12#11#13#11#6#11#19#8#11#6#9#11#4#11#7+<BR>#2#12#8#11#10#12#7#9#12#15#15#11#7#8#4#7+<BR>#15#12#7#15#10#6#7#6#11#7#7#7#12#8#15#10+<BR>#9#16#6#7#8#12#12#15#8#8#10#10#10#6#13#9+<BR>#11#6#7#6#6#10#8#8#4#7#10#5#9#6#6#6+<BR>#11#8#8#13#12#14#13#13#13#4#11#14#4#10#7#5+<BR>#16#12#18#12#13#12#9#13#10#12#24#13#13#5#12#3+<BR>#9#13#6#11#12#7#9#12#15#7#6#6#7#8#11#13+<BR>#8#9#13#15#10#11#7#21#18#11#11#9#14#14#13#13+<BR>#10#7#6#8#12#6#15#12#7#5#4#5#11#11#15#14+<BR>#9#19#16#12#14#11#13#10#13#14#11#14#7#6#3#14+<BR>#15#12#11#10#13#12#6#12#14#5#3#7#4#12#17#9+<BR>#9#5#9#11#9#11#9#10#8#4#8#10#11#9#5#12+<BR>#7#11#11#8#11#11#6#9#10#9#10#2#10#17#10#7+<BR>#11#6#8#15#11#12#11#15#11#8#19#6#12#12#17#14+<BR>#4#12#7#14#8#10#11#7#10#14#14#7#8#6#12#11+<BR>#9#7#10#12#16#11#13#13#9#8#16#9#5#7#7#8+<BR>#11#12#11#13#13#5#16#10#2#11#6#8#10#12#10#14+<BR>#15#8#11#13#2#7#5#7#8#12#13#8#4#6#5#5+<BR>#12#15#6#9#8#9#7#9#11#7#4#9#7#10#12#10+<BR>#13#9#12#9#10#11#13#12#7#14#7#9#12#7#14#12+<BR>#14#9#11#12#11#7#4#5#15#7#19#12#10#7#9#9+<BR>#12#11#9#6#6#9#13#6#13#11#8#12#11#13#10#12+<BR>#9#15#6#10#10#4#7#12#11#10#10#6#2#6#5#9+<BR>#9#2#9#5#9#12#6#4#9#8#9#18#6#12#18#15+<BR>#8#8#17#3#10#4#7#8#8#5#7#7#7#7#4#8+<BR>#8#6#7#6#6#7#8#11#8#11#3#8#10#10#7#8+<BR>#8#8#9#7#11#7#8#4#7#7#12#7#10#8#6#8+<BR>#12#12#4#9#8#13#10#12#4#9#11#10#5#13#6#8+<BR>#4#7#7#4#15#8#14#7#8#13#12#9#11#6#9#8+<BR>#10#11#13#11#5#7#7#11#10#10#8#11#12#8#14#9+<BR>#11#18#12#9#12#5#8#4#13#6#12#4#7#6#13#8+<BR>#15#14#8#7#13#9#11#12#3#5#7#9#9#7#10#13+<BR>#8#11#21#4#6#9#9#7#7#7#12#7#16#10#10#14+<BR>#10#16#13#15#15#7#10#14#12#4#11#10#8#12#9#12+<BR>#10#12#9#12#11#3#6#9#10#13#10#7#8#19#10#10+<BR>#11#3#7#5#10#11#8#10#4#9#3#6#7#9#7#6+<BR>#9#4#7#8#8#9#8#8#11#12#11#8#14#7#8#8+<BR>#8#13#5#11#9#7#8#9#10#8#12#8#5#9#14#9+<BR>#13#8#8#8#12#6#8#9#6#14#11#23#11#20#8#6+<BR>#3#10#13#8#6#11#5#7#9#6#9#8#9#10#8#13+<BR>#9#8#12#13#12#12#10#8#8#14#6#9#15#9#10#10+<BR>#6#10#9#12#15#7#12#7#11#12#8#12#7#16#16#10+<BR>#7#16#10#11#6#5#5#8#10#17#17#14#11#9#6#10+<BR>#5#10#8#12#10#11#10#5#8#7#6#11#13#9#8#11+<BR>#14#14#15#9#15#12#11#9#9#9#10#7#15#16#9#8+<BR>#9#10#9#11#9#7#5#6#12#9#12#7#9#10#6#8+<BR>#5#8#13#10#12#9#15#8#15#12#8#8#11#7#4#7+<BR>#4#7#9#6#12#12#8#6#4#8#13#9#7#11#7#6+<BR>#8#10#7#12#10#11#10#12#13#11#10#9#4#9#12#11+<BR>#16#15#17#9#11#12#13#10#13#9#11#6#9#12#17#9+<BR>#12#6#13#10#15#5#12#11#10#11#6#10#5#6#9#9+<BR>#9#8#11#13#9#11#17#9#6#4#10#8#12#16#8#11+<BR>#5#6#11#6#13#15#10#14#6#5#9#16#4#7#10#11+<BR>#12#6#7#12#13#20#12#3#9#10#6#7#13#6#9#2+<BR>#10#3#13#7#16#8#6#11#8#11#9#11#11#4#5#9+<BR>#7#7#7#10#6#14#9#6#8#10#5#9#12#10#5#10+<BR>#11#15#6#9#8#13#7#10#7#6#11#7#13#10#8#8+<BR>#6#12#9#11#9#14#12#8#10#13#9#11#11#9#14#13+<BR>#12#9#4#13#15#6#10#10#9#8#11#12#12#8#15#9+<BR>#9#10#6#19#12#10#9#6#6#13#8#15#12#17#12#10+<BR>#6#8#9#9#9#20#12#11#11#8#11#9#7#9#16#9+<BR>#13#11#14#10#10#5#12#12#11#9#11#12#6#14#7#5+<BR>#10#8#11#13#14#9#9#13#8#7#17#7#9#10#4#9+<BR>#9#8#3#12#4#8#4#9#18#10#13#4#13#7#13#10+<BR>#13#7#10#10#6#7#9#14#8#13#12#16#8#11#14#13+<BR>#8#4#19#12#11#14#14#12#16#8#10#13#11#10#8#9+<BR>#12#12#7#5#7#9#3#7#2#10#11#11#5#6#13#8+<BR>#12#8#17#8#8#10#8#8#11#7#8#9#9#8#14#7+<BR>#11#4#8#11#15#13#10#5#11#8#10#10#12#10#10#11+<BR>#8#10#15#23#7#11#10#17#9#6#6#9#7#11#9#6+<BR>#7#10#9#12#10#9#10#12#8#5#9#4#12#13#8#12+<BR>#5#12#11#7#9#9#11#14#17#6#7#4#8#6#9#10+<BR>#15#8#8#9#12#15#14#9#7#9#5#12#7#8#9#10+<BR>#8#11#9#10#7#7#8#10#4#11#7#3#6#11#9#10+<BR>#13#8#14#7#12#6#9#9#13#10#7#13#8#7#10#12+<BR>#6#12#7#10#8#11#7#7#3#11#8#13#12#9#13#11+<BR>#12#12#12#8#8#10#7#9#6#13#12#8#8#12#14#12+<BR>#14#11#10#7#13#13#11#9#8#16#12#5#15#14#12#9+<BR>#16#12#9#13#11#12#10#11#8#10#10#10#7#7#6#8+<BR>#9#13#10#10#11#5#13#18#16#15#11#17#9#16#6#9+<BR>#8#12#13#7#9#11#11#15#16#10#10#13#11#7#7#15+<BR>#5#10#9#6#10#7#5#5#10#4#7#12#8#9#12#5+<BR>#11#7#8#2#14#10#9#12#10#7#18#13#8#10#8#11+<BR>#11#12#10#9#8#13#10#11#13#7#7#11#12#12#9#10+<BR>#15#11#14#7#16#14#5#15#2#14#17#14#10#6#12#10+<BR>#6#11#12#8#17#16#9#7#20#11#15#10#7#8#9#11+<BR>#13#13#10#7#11#10#7#10#8#11#5#5#13#11#14#12+<BR>#13#10#6#15#10#9#4#5#11#8#11#16#11#8#8#7+<BR>#13#9#12#12#14#8#7#5#11#7#8#11#7#8#12#19+<BR>#13#21#13#10#11#16#11#8#7#15#7#6#11#8#10#15+<BR>#12#12#10#12#9#11#13#11#9#10#9#13#7#7#11#11+<BR>#7#8#6#4#7#7#6#11#17#8#11#13#14#14#13#12+<BR>#9#9#9#6#11#7#8#9#3#9#14#6#10#6#7#8+<BR>#6#9#15#14#12#13#14#11#14#14#13#6#9#8#8#6+<BR>#10#11#8#13#4#5#10#5#8#9#12#14#9#3#8#8+<BR>#11#14#15#13#7#9#12#14#7#9#9#12#8#12#3#7+<BR>#5#11#13#17#13#13#11#11#8#11#16#19#17#9#11#8+<BR>#6#10#8#8#14#11#12#12#10#11#11#7#9#10#12#9+<BR>#8#11#13#17#9#12#8#7#14#5#5#8#5#11#10#9+<BR>#8#16#8#11#6#8#13#13#14#19#14#14#16#15#20#8+<BR>#5#10#15#16#8#13#13#8#11#6#9#8#7#7#8#5+<BR>#13#14#13#12#14#4#5#13#8#16#10#9#7#9#6#9+<BR>#7#6#2#5#9#8#9#7#10#22#9#10#9#8#11#8+<BR>#10#4#14#10#8#16#10#8#5#7#7#10#13#9#13#14+<BR>#8#6#15#15#11#8#10#14#5#7#10#10#19#11#15#15+<BR>#10#11#9#8#16#5#8#8#4#7#9#7#10#9#6#7+<BR>#5#7#9#3#13#9#8#9#17#20#10#10#8#9#8#18+<BR>#7#11#7#11#9#8#8#8#12#8#11#12#11#12#9#19+<BR>#15#11#15#9#10#7#9#6#8#10#16#9#7#8#7#9+<BR>#10#12#8#8#9#11#14#12#10#10#8#7#12#9#10#8+<BR>#11#15#12#13#12#13#16#16#8#12#11#13#8#9#21#7+<BR>#8#15#12#9#11#12#10#5#4#12#15#7#20#15#11#4+<BR>#12#15#14#16#11#14#16#9#13#8#9#13#6#8#8#11+<BR>#5#8#10#7#9#8#8#11#11#10#14#8#11#10#5#12+<BR>#4#10#12#11#13#10#6#10#12#10#14#19#18#12#12#10+<BR>#11#8#2#10#14#9#7#8#12#8#7#11#11#10#6#14+<BR>#8#6#11#10#6#3#6#7#9#9#16#4#6#7#7#8+<BR>#5#11#9#9#9#6#8#10#3#6#13#5#12#11#16#10+<BR>#10#9#15#13#8#15#11#12#4#14#8#7#12#7#14#14+<BR>#12#7#16#14#14#10#10#17#6#8#5#16#15#12#10#9+<BR>#10#4#8#5#8#9#9#9#9#10#12#13#7#15#12#13+<BR>#7#8#9#9#10#10#11#16#12#12#11#8#10#6#12#7+<BR>#9#5#7#11#7#5#9#8#12#4#11#6#11#8#7#11+<BR>#8#11#17#15#5#11#23#6#16#9#6#11#10#4#8#4+<BR>#10#8#16#7#13#14#12#11#12#13#12#16#5#9#22#20+<BR>#20#20#5#9#7#9#12#10#4#4#2#7#7#6#4#3+<BR>#7#6#5#4#4#6#9#13#9#16#14#13#10#9#4#12+<BR>#9#6#9#20#16#17#6#10#8#6#2#15#8#6#15#13+<BR>#12#7#10#8#10#15#9#11#13#17#13#14#3#8#6#12+<BR>#10#13#8#12#12#6#12#13#6#10#12#14#10#9#6#8+<BR>#7#7#13#11#13#12#10#9#8#7#3#7#14#8#5#8+<BR>#16#17#16#12#6#10#15#14#6#11#12#10#3#8#14#11+<BR>#10#12#10#6#3#14#4#10#7#8#11#11#11#6#8#11+<BR>#13#10#13#10#7#6#10#5#8#7#7#11#10#8#9#7+<BR>#8#11#9#8#13#11#7#5#12#9#4#11#9#11#12#9+<BR>#5#6#5#9#9#12#8#3#8#2#5#9#7#4#9#9+<BR>#8#7#5#5#8#9#8#8#6#5#3#5#9#8#9#14+<BR>#10#8#9#13#16#9#5#8#12#8#4#5#9#9#8#8+<BR>#6#4#9#6#7#11#11#8#14#11#15#8#11#10#7#13+<BR>#8#12#11#12#4#12#11#15#16#12#17#13#13#12#13#12+<BR>#5#8#9#7#6#9#14#11#13#14#10#8#9#14#10#5+<BR>#5#10#9#17#4#11#10#4#13#12#7#17#9#12#9#11+<BR>#10#8#12#15#15#9#7#5#5#6#13#6#13#5#7#6+<BR>#8#3#8#10#8#10#9#7#6#9#12#15#16#14#7#12+<BR>#9#10#10#12#14#13#13#11#7#8#14#13#14#9#11#11+<BR>#10#21#13#6#17#12#14#10#6#10#10#13#11#10#14#11+<BR>#10#12#8#13#5#5#6#12#16#9#17#15#9#8#8#5+<BR>#10#11#4#8#7#7#13#8#15#13#7#17#13#15#14#10+<BR>#8#12#10#14#11#5#9#6#13#13#11#12#15#10#16#10+<BR>#15#11#15#10#11#10#13#10#11#10#9#11#10#5#10#10+<BR>#18#13#10#13#11#10#15#12#12#15#16#12#7#12#17#11+<BR>#10#9#8#4#11#13#5#11#9#14#12#9#7#8#11#13+<BR>#9#10#8#4#7#9#5#6#11#9#9#9#12#10#10#13+<BR>#17#6#11#7#12#11#10#12#9#12#11#7#5#10#5#7+<BR>#9#8#10#10#10#11#3#6#8#12#6#11#13#13#13#13+<BR>#9#7#4#17#8#6#11#10#7#6#8#12#7#8#11#9+<BR>#9#12#9#9#4#10#9#5#15#9#12#8#10#3#11#7+<BR>#13#10#11#12#11#8#11#3#12#7#4#3#8#6#8#8+<BR>#11#7#6#9#20#13#6#4#7#10#7#11#11#4#14#11+<BR>#7#11#8#6#6#7#7#5#14#8#9#9#12#17#7#12+<BR>#11#11#15#3#14#12#10#4#9#7#7#14#10#6#13#10+<BR>#8#9#13#10#12#7#14#8#12#7#7#7#9#4#6#9+<BR>#9#4#7#11#7#7#4#8#4#10#4#14#6#9#7#5+<BR>#13#11#8#4#5#10#9#8#14#8#6#11#8#12#15#6+<BR>#13#10#12#10#7#11#15#3#11#14#11#13#6#12#17#11+<BR>#10#3#13#12#11#9#7#12#6#8#15#9#7#17#14#13+<BR>#9#8#9#3#12#10#6#11#13#6#5#14#6#9#8#11+<BR>#11#7#9#8#13#9#9#8#13#7#13#11#12#9#10#8+<BR>#8#9#11#22#9#15#17#12#3#12#10#8#13#9#8#9+<BR>#9#15#13#6#11#11#12#15#9#10#18#12#10#10#11#10+<BR>#3#7#10#7#11#10#10#13#8#13#15#15#6#9#13#6+<BR>#11#8#11#5#11#9#19#16#8#8#12#10#16#7#12#8+<BR>#7#13#7#4#9#11#9#13#12#12#6#6#9#7#6#6+<BR>#16#8#7#8#8#5#4#10#6#7#12#14#6#9#10#6+<BR>#13#12#7#10#10#14#6#14#11#14#9#10#6#13#11#9+<BR>#6#7#10#9#12#12#11#11#7#12#9#11#11#5#9#19+<BR>#10#9#13#16#8#5#11#6#9#14#12#6#8#6#6#6+<BR>#10#6#5#5#9#6#6#8#9#10#7#3#7#4#10#11+<BR>#13#11#12#9#6#6#11#9#11#10#11#10#7#9#12#8+<BR>#6#7#15#11#8#8#8#11#11#9#14#10#12#16#6#9+<BR>#12#10#9#12#10#11#10#9#5#10#10#7#6#8#8#6+<BR>#9#6#10#6#11#9#10#14#16#13#7#14#13#6#13#11+<BR>#12#9#9#10#9#9#20#12#15#8#6#11#7#3#6#11+<BR>#5#5#6#12#8#11#1#12#7#12#11#8#6#6#13#6+<BR>#12#11#5#10#14#7#8#9#18#12#9#10#3#1#7#4+<BR>#4#7#8#7#6#3#7#17#11#13#9#6#13#13#15#4+<BR>#3#10#13#8#5#10#7#6#17#11#8#9#9#6#10#9+<BR>#6#9#7#11#11#11#7#4#4#11#5#8#15#11#18#7+<BR>#14#10#11#11#9#14#7#17#9#15#13#10#9#9#8#7+<BR>#17#10#11#13#14#13#8#8#10#5#11#9#5#9#6#11+<BR>#7#4#5#7#10#7#8#12#7#6#4#5#7#12#9#2+<BR>#5#6#11#3#8#13#13#13#14#7#9#12#8#12#12#11+<BR>#11#4#10#8#3#6#9#6#9#6#5#11#6#8#6#12+<BR>#12#10#12#13#11#9#8#13#10#12#12#10#15#5#10#11+<BR>#10#4#9#10#10#12#14#7#7#10#13#13#12#7#8#14+<BR>#9#9#4#6#12#11#9#8#12#4#10#10#10#4#9#4+<BR>#9#4#7#15#11#10#13#5#5#10#6#10#9#7#10#10+<BR>#6#6#9#19#12#16#10#10#12#14#17#12#19#8#6#16+<BR>#9#20#16#10#7#7#17#8#8#6#8#10#9#15#15#12+<BR>#16#4#12#12#5#5#11#8#9#9#14#8#5#9#7#14+<BR>#10#6#10#10#14#18#9#13#11#8#10#8#14#11#10#22+<BR>#9#5#9#10#12#11#15#11#14#14#7#12#10#7#3#7+<BR>#8#5#8#16#13#8#9#7#8#9#13#13#6#14#5#14+<BR>#7#10#12#16#8#13#14#7#10#9#13#10#13#10#16#6+<BR>#7#8#8#10#7#15#10#15#6#13#9#11#8#9#6#8+<BR>#16#9#5#9#9#10#8#7#6#8#4#7#14#8#8#10+<BR>#5#3#8#11#8#12#12#6#10#8#7#9#4#11#5#6+<BR>#7#7#10#11#6#10#13#8#9#8#12#10#13#8#8#11+<BR>#12#8#11#4#9#8#9#10#8#9#8#9#6#6#6#8+<BR>#6#9#7#12#9#7#8#8#10#8#9#17#10#10#12#6+<BR>#11#10#8#10#6#10#12#8#17#15#5#11#9#7#11#8+<BR>#12#12#7#8#9#8#7#4#9#4#9#8#15#14#15#10+<BR>#6#12#6#15#6#7#12#13#9#14#7#11#10#10#10#8+<BR>#8#10#12#8#10#11#11#7#9#9#9#10#9#12#11#7+<BR>#12#5#9#13#3#6#11#6#18#12#15#8#11#9#7#7+<BR>#7#9#12#10#7#8#11#9#7#7#8#10#20#16#15#12+<BR>#13#12#15#9#5#7#9#11#7#7#10#0#0#0#0#0+<BR>#3#3#3#4#4#4#5#6#6#10#10#16#0#9#0#2+<BR>#3#4#4#5#5#6#9#11#14#14#19#0#8#14#2#6+<BR>#4#7#7#11#14#4#6#10#11#12#14#15#16#0#5#8+<BR>#11#11#15#8#7#0#4#6#7#8#8#8#9#10#10#10+<BR>#13#13#14#14#15#16#0#8#0#4#4#4#5#5#5#5+<BR>#6#6#6#6#6#6#6#6#6#7#7#7#7#7#7#7+<BR>#7#7#8#8#8#8#8#8#8#8#8#8#8#8#9#9+<BR>#9#9#9#9#9#9#9#10#10#10#10#10#10#10#10#10+<BR>#10#10#10#10#11#11#11#11#11#11#11#12#12#12#13#14+<BR>#14#14#14#14#14#15#15#5#6#7#7#8#17#6#8#4+<BR>#12#16#17#18#21#0#9#9#11#6#6#7#0#8#10#10+<BR>#11#12#12#12#13#16#19#19#0#6#8#8#10#0#10#10+<BR>#0#5#5#5#6#6#6#7#7#7#7#7#7#8#8#8+<BR>#8#8#8#8#8#8#8#8#9#9#9#9#10#10#10#10+<BR>#10#10#10#11#11#11#11#11#11#11#11#11#11#11#12#12+<BR>#12#12#12#13#13#14#14#14#15#15#19#0#8#0#5#5+<BR>#6#6#7#7#7#7#8#9#9#10#10#10#11#11#11#16+<BR>#5#5#5#5#6#6#7#7#7#7#7#7#8#8#8#8+<BR>#8#8#8#9#9#9#9#9#10#10#11#11#13#13#13#14+<BR>#14#16#19#20#5#7#5#7#7#8#10#10#11#15#9#17+<BR>#20#0#0#6#10#2#5#10#12#7#9#9#14#16#16#17+<BR>#6#6#6#6#6#6#6#7#7#7#8#8#8#8#8#8+<BR>#8#8#8#8#9#9#9#9#9#9#9#9#9#10#10#10+<BR>#10#10#10#11#11#11#11#11#11#11#11#11#11#12#12#12+<BR>#12#13#13#14#14#14#15#20#21#22#0#5#5#6#6#6+<BR>#6#6#6#6#7#7#7#7#7#7#7#7#7#7#7#7+<BR>#7#7#7#7#7#7#7#7#7#7#7#8#8#8#8#8+<BR>#8#8#8#8#8#8#8#8#8#8#8#8#8#8#9#9+<BR>#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9+<BR>#9#9#9#9#9#9#9#9#9#9#9#9#9#10#10#10+<BR>#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+<BR>#10#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11+<BR>#11#11#11#11#11#11#11#11#11#11#11#12#12#12#12#12+<BR>#12#12#12#12#12#12#12#12#12#12#12#12#12#13#13#13+<BR>#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14+<BR>#14#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15+<BR>#15#16#16#16#16#16#16#16#16#16#17#17#17#17#17#18+<BR>#19#19#19#20#20#22#0#9#6#7#9#9#10#10#11#0+<BR>#6#7#13#0#6#7#8#8#8#8#9#9#9#10#10#10+<BR>#11#11#11#11#11#11#11#11#11#11#11#11#12#12#12#12+<BR>#12#12#12#12#12#12#13#13#13#13#13#13#13#13#14#14+<BR>#14#14#14#15#15#15#15#16#16#16#17#17#19#23#25#3+<BR>#7#8#12#5#5#5#5#5#5#6#6#6#7#7#7#7+<BR>#7#7#7#7#7#7#7#8#8#8#8#8#8#8#8#8+<BR>#8#8#9#9#9#9#9#9#9#9#9#9#9#9#9#9+<BR>#9#9#9#9#9#9#9#9#9#9#10#10#10#10#10#10+<BR>#10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+<BR>#11#11#11#11#11#11#11#11#12#12#12#12#12#12#12#12+<BR>#12#12#12#12#12#12#12#12#12#13#13#13#13#13#13#13+<BR>#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14+<BR>#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15#15+<BR>#15#15#16#16#16#16#16#16#17#17#19#25#0#6#6#7+<BR>#7#8#9#10#11#11#16#7#8#8#8#10#11#11#11#12+<BR>#14#14#15#15#6#6#7#7#7#7#7#7#7#7#7#8+<BR>#8#8#8#8#8#8#8#8#8#9#9#9#9#10#10#11+<BR>#11#11#11#11#11#11#12#12#12#12#12#12#12#12#12#12+<BR>#13#13#13#14#15#15#17#17#19#3#7#8#9#9#9#10+<BR>#11#11#12#13#15#16#24#0#0#5#6#6#6#7#7#8+<BR>#8#8#9#9#9#9#10#10#10#10#10#10#10#11#11#11+<BR>#11#11#11#11#12#12#12#12#12#12#14#14#15#15#16#17+<BR>#20#6#14#12#14#0#0#6#7#7#7#7#7#8#9#10+<BR>#10#11#12#12#13#13#14#15#15#25#5#7#7#8#9#9+<BR>#11#11#11#11#12#13#14#15#16#16#17#0#5#6#6#7+<BR>#7#7#7#7#7#7#7#7#7#7#8#8#8#8#8#8+<BR>#8#8#8#8#8#9#9#9#9#9#9#9#10#10#10#10+<BR>#10#10#10#10#11#11#11#11#11#11#11#11#12#12#12#12+<BR>#12#12#12#13#13#14#15#15#15#16#16#18#8#17#4#6+<BR>#7#7#7#7#9#9#10#10#10#11#11#11#11#11#11#12+<BR>#12#13#13#13#14#0#4#8#0#6#6#6#7#7#7#7+<BR>#7#7#7#7#7#7#7#7#8#8#8#8#8#8#8#8+<BR>#8#8#8#8#8#8#8#8#9#9#9#9#9#9#9#9+<BR>#9#9#9#9#9#9#9#9#9#9#10#10#10#10#10#10+<BR>#10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+<BR>#11#11#11#11#12#12#12#12#12#12#12#12#12#12#12#12+<BR>#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13+<BR>#13#14#14#14#14#14#14#14#14#14#14#14#14#14#14#15+<BR>#15#15#15#15#15#16#16#16#16#16#16#17#17#17#17#17+<BR>#19#19#19#20#20#21#24#0#5#8#8#9#10#12#13#14+<BR>#14#15#16#16#17#17#0#7#7#8#8#8#8#8#8#8+<BR>#9#9#10#10#10#10#10#10#11#11#11#11#12#12#12#12+<BR>#13#13#13#13#15#15#16#16#17#17#18#0#11#9#12#5+<BR>#9#10#10#12#14#15#21#8#8#9#11#12#22#0#6#6+<BR>#7#7#7#7#7#7#7#7#7#7#8#8#8#8#9#9+<BR>#9#9#9#9#9#10#10#10#10#10#10#10#10#11#11#11+<BR>#11#11#11#11#12#12#12#12#13#13#13#13#13#13#14#14+<BR>#14#14#14#14#14#15#16#16#17#17#20#5#9#7#8#12+<BR>#3#3#8#8#8#8#8#8#8#8#9#9#9#10#11#11+<BR>#11#11#12#12#13#13#13#14#14#15#19#20#0#6#6#6+<BR>#6#6#7#7#7#8#8#8#8#8#8#8#9#9#9#10+<BR>#10#10#11#11#11#11#11#11#11#11#11#11#11#12#12#12+<BR>#12#12#12#12#12#12#12#13#13#13#13#13#13#13#13#14+<BR>#14#14#14#14#15#15#15#16#16#16#16#19#3#15#3#8+<BR>#10#6#6#8#8#8#9#9#9#9#9#9#9#9#10#10+<BR>#10#10#10#10#10#10#10#11#12#12#12#12#12#12#12#12+<BR>#12#12#13#13#13#13#13#14#14#15#15#15#15#15#15#15+<BR>#16#17#17#17#18#20#19#13#13#14#7#7#7#7#7#8+<BR>#8#8#8#8#8#8#8#8#8#8#8#8#9#9#9#9+<BR>#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#10+<BR>#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+<BR>#10#10#11#11#11#11#11#11#11#12#12#12#12#12#12#12+<BR>#12#12#12#12#12#13#13#13#13#13#13#13#13#13#13#13+<BR>#13#13#13#13#13#13#13#13#14#14#14#14#14#14#14#14+<BR>#14#14#14#14#14#15#15#15#15#15#15#15#14#16#16#16+<BR>#16#16#16#16#16#16#16#16#17#17#17#17#18#13#14#8+<BR>#9#9#9#11#11#11#12#12#14#16#7#8#9#9#9#9+<BR>#9#9#9#9#9#10#10#10#10#11#12#12#12#12#13#15+<BR>#16#10#5#8#11#12#12#13#13#13#14#14#8#9#12#16+<BR>#16#17#4#6#6#7#8#8#8#8#8#8#8#9#9#9+<BR>#9#9#9#10#10#10#10#10#10#11#11#12#13#13#14#14+<BR>#16#18#18#20#21#9#9#9#9#10#10#10#10#11#11#11+<BR>#12#12#14#9#10#11#12#13#14#15#15#9#16#6#8#9+<BR>#11#11#12#12#12#13#14#10#11#12#14#17#10#10#12#12+<BR>#12#13#16#16#16#22#5#6#7#7#9#10#10#11#13#0+<BR>#11#13#12#13#15#9#15#6#7#7#7#8#8#8#8#8+<BR>#8#8#8#9#9#9#9#9#9#9#9#9#9#9#9#9+<BR>#10#10#10#10#10#10#10#10#10#11#11#11#11#11#11#12+<BR>#12#12#12#12#12#12#13#13#13#13#13#13#13#13#14#14+<BR>#14#15#15#16#17#17#17#17#17#16#7#11#12#13#13#16+<BR>#9#9#12#13#16#16#4#13#13#17#12#15#16#8#10#10+<BR>#10#11#11#13#14#7#8#8#8#9#9#9#9#9#10#10+<BR>#11#11#11#12#12#13#13#13#13#13#13#13#13#14#15#15+<BR>#15#15#16#16#16#18#21#30#0#11#13#16#8#8#9#11+<BR>#12#0#7#8#8#9#9#9#9#9#9#9#10#10#12#12+<BR>#13#14#16#21#7#7#9#10#10#10#10#10#10#11#13#13+<BR>#14#16#16#17#17#25#0#6#8#9#12#7#8#8#9#9+<BR>#9#9#9#9#9#10#10#10#10#10#10#10#10#10#10#11+<BR>#11#11#11#11#11#11#11#12#13#13#13#13#13#14#14#14+<BR>#14#14#15#15#15#16#16#17#17#18#19#18#21#11#12#17+<BR>#19#8#9#9#9#9#9#10#10#10#11#11#11#11#12#12+<BR>#12#12#13#13#13#13#14#14#14#14#15#15#16#16#16#17+<BR>#18#7#8#9#9#9#10#12#13#17#9#10#10#12#13#14+<BR>#14#16#17#17#10#16#23#0#6#6#7#7#7#8#8#8+<BR>#8#8#8#9#9#9#9#9#9#9#9#9#9#10#10#10+<BR>#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+<BR>#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11+<BR>#11#11#11#11#11#11#11#11#11#11#12#12#12#12#12#12+<BR>#12#12#12#12#12#12#12#12#12#12#12#13#13#13#13#13+<BR>#13#13#13#13#13#13#13#14#14#14#14#14#14#14#14#14+<BR>#14#14#14#15#15#15#15#15#15#15#15#16#16#16#16#16+<BR>#16#16#16#17#17#17#17#17#17#17#17#17#17#18#18#18+<BR>#19#20#14#9#12#13#9#9#10#10#11#12#12#12#13#13+<BR>#15#15#16#17#18#22#9#11#12#13#17#10#11#7#7#8+<BR>#9#9#10#10#10#10#10#10#11#11#11#11#11#12#12#12+<BR>#12#12#12#13#13#13#13#13#14#14#14#14#14#15#15#16+<BR>#16#16#17#17#17#17#19#18#22#0#7#7#8#8#9#9+<BR>#10#10#10#10#10#10#10#10#11#11#12#12#12#12#12#12+<BR>#13#13#13#13#13#13#13#14#14#14#14#14#14#14#15#15+<BR>#15#15#16#16#16#16#16#16#16#16#17#18#18#18#18#21+<BR>#23#11#12#8#8#9#9#10#11#13#13#14#14#14#15#0+<BR>#8#9#9#9#9#10#11#11#11#11#12#12#12#12#13#13+<BR>#13#13#13#13#14#14#14#14#14#15#15#16#17#19#24#5+<BR>#9#11#12#9#6#9#10#11#12#13#14#15#15#16#16#22+<BR>#12#8#11#11#11#12#15#16#12#9#10#10#12#12#12#12+<BR>#13#15#15#16#16#16#18#20#21#0#10#7#8#9#9#9+<BR>#9#10#10#10#10#10#10#10#10#10#10#11#11#11#11#11+<BR>#11#11#11#11#11#11#12#12#12#12#12#12#12#12#12#12+<BR>#12#12#13#13#13#13#13#13#13#13#14#14#14#14#14#14+<BR>#14#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15+<BR>#15#15#15#15#15#15#16#16#16#16#16#16#16#16#16#16+<BR>#17#17#17#17#17#17#17#17#17#17#17#18#18#18#18#19+<BR>#19#19#19#20#21#24#26#6#14#17#17#10#8#9#9#9+<BR>#10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+<BR>#11#12#12#12#12#12#12#13#13#13#13#13#13#14#14#14+<BR>#14#14#14#14#14#14#14#14#14#15#15#15#15#16#16#16+<BR>#16#16#17#17#17#17#17#17#18#18#18#19#19#19#8#9+<BR>#11#12#10#10#9#9#9#10#10#10#10#11#11#11#11#12+<BR>#13#13#14#15#17#18#19#10#10#11#13#13#19#11#11#13+<BR>#15#15#16#9#10#10#11#11#12#12#13#14#14#14#15#15+<BR>#15#15#15#16#18#6#14#9#11#12#14#14#15#15#16#17+<BR>#6#12#14#14#17#25#11#19#9#12#13#13#23#11#15#10+<BR>#11#9#10#10#10#12#12#12#13#13#13#14#14#14#14#14+<BR>#15#15#16#16#16#17#17#18#19#19#19#20#20#21#7#16+<BR>#10#13#14#18#18#10#10#11#11#11#12#12#12#12#12#12+<BR>#12#12#13#13#13#13#13#13#13#14#14#15#15#15#15#15+<BR>#15#15#15#16#16#16#16#16#16#16#16#17#17#17#19#19+<BR>#19#19#19#20#21#22#22#23#24#7#12#13#13#17#17#11+<BR>#11#12#12#13#13#14#15#13#18#12#11#12#12#14#14#15+<BR>#16#16#19#19#20#22#10#13#13#13#14#14#15#15#17#8+<BR>#12#20#8#10#10#13#14#18#18#14#14#15#16#17#18#18+<BR>#21#24#12#12#13#13#13#13#13#13#13#13#14#14#14#14+<BR>#14#14#14#14#15#15#15#15#15#15#15#15#15#15#16#16+<BR>#16#16#16#16#16#16#16#16#16#16#17#17#17#17#17#17+<BR>#17#17#18#18#18#18#18#19#19#19#19#19#19#20#20#20+<BR>#21#14#14#15#15#16#18#18#18#19#19#13#13#14#14#14+<BR>#15#15#17#17#18#18#19#19#22#14#14#15#16#16#17#19+<BR>#12#15#18#22#22#10#13#14#15#15#16#16#16#18#19#20+<BR>#23#25#14#15#17#13#16#16#17#19#19#21#23#17#17#17+<BR>#18#18#19#20#20#20#20#21#17#18#20#23#23#16#17#23;<BR><BR>var<BR>no:integer;<BR>BiHua:integer;<BR>str:string; // str[40]<BR>BiHuaI:integer;<BR>ch1:char;<BR>ch2:char;<BR>len:integer;<BR>begin<BR>str:=chnstr;<BR>BiHuaI:=1;<BR>BiHua:=0;<BR>len:=length(str);<BR>while BiHuaI&lt;=len do<BR>begin<BR>ch1:=str[BiHuaI];<BR>BiHuaI:=BiHuaI+1;<BR>if (ord(ch1)&gt;=176) and (BiHuaI&lt;=len) then<BR>begin<BR>ch2:=str[BiHuaI];<BR>//BiHuaI:=BiHuaI+1; ----这一行在只查一个汉字的时候用不着 2002.10<BR>no:=(ord(ch1)-176)*94+(ord(ch2)-160);<BR>BiHua:=ord(BiHuaTable[no]);<BR>end<BR>else<BR>begin<BR>BiHua:=0;<BR>end;<BR>break; // 只要查出第一个汉字即可<BR>end;<BR><BR>result:=BiHua;<BR>end; </P><>&nbsp;</P><><BR>&nbsp;</P><p>［此帖子已被 麻虎子 在 2005-4-23 17:02:20 编辑过］