#8#9#11#22#9#15#17#12#3#12#10#8#13#9#8#9+
              #9#15#13#6#11#11#12#15#9#10#18#12#10#10#11#10+
              #3#7#10#7#11#10#10#13#8#13#15#15#6#9#13#6+
              #11#8#11#5#11#9#19#16#8#8#12#10#16#7#12#8+
              #7#13#7#4#9#11#9#13#12#12#6#6#9#7#6#6+
              #16#8#7#8#8#5#4#10#6#7#12#14#6#9#10#6+
              #13#12#7#10#10#14#6#14#11#14#9#10#6#13#11#9+
              #6#7#10#9#12#12#11#11#7#12#9#11#11#5#9#19+
              #10#9#13#16#8#5#11#6#9#14#12#6#8#6#6#6+
              #10#6#5#5#9#6#6#8#9#10#7#3#7#4#10#11+
              #13#11#12#9#6#6#11#9#11#10#11#10#7#9#12#8+
              #6#7#15#11#8#8#8#11#11#9#14#10#12#16#6#9+
              #12#10#9#12#10#11#10#9#5#10#10#7#6#8#8#6+
              #9#6#10#6#11#9#10#14#16#13#7#14#13#6#13#11+
              #12#9#9#10#9#9#20#12#15#8#6#11#7#3#6#11+
              #5#5#6#12#8#11#1#12#7#12#11#8#6#6#13#6+
              #12#11#5#10#14#7#8#9#18#12#9#10#3#1#7#4+
              #4#7#8#7#6#3#7#17#11#13#9#6#13#13#15#4+
              #3#10#13#8#5#10#7#6#17#11#8#9#9#6#10#9+
              #6#9#7#11#11#11#7#4#4#11#5#8#15#11#18#7+
              #14#10#11#11#9#14#7#17#9#15#13#10#9#9#8#7+
              #17#10#11#13#14#13#8#8#10#5#11#9#5#9#6#11+
              #7#4#5#7#10#7#8#12#7#6#4#5#7#12#9#2+
              #5#6#11#3#8#13#13#13#14#7#9#12#8#12#12#11+
              #11#4#10#8#3#6#9#6#9#6#5#11#6#8#6#12+
              #12#10#12#13#11#9#8#13#10#12#12#10#15#5#10#11+
              #10#4#9#10#10#12#14#7#7#10#13#13#12#7#8#14+
              #9#9#4#6#12#11#9#8#12#4#10#10#10#4#9#4+
              #9#4#7#15#11#10#13#5#5#10#6#10#9#7#10#10+
              #6#6#9#19#12#16#10#10#12#14#17#12#19#8#6#16+
              #9#20#16#10#7#7#17#8#8#6#8#10#9#15#15#12+
              #16#4#12#12#5#5#11#8#9#9#14#8#5#9#7#14+
              #10#6#10#10#14#18#9#13#11#8#10#8#14#11#10#22+
              #9#5#9#10#12#11#15#11#14#14#7#12#10#7#3#7+
              #8#5#8#16#13#8#9#7#8#9#13#13#6#14#5#14+
              #7#10#12#16#8#13#14#7#10#9#13#10#13#10#16#6+
              #7#8#8#10#7#15#10#15#6#13#9#11#8#9#6#8+
              #16#9#5#9#9#10#8#7#6#8#4#7#14#8#8#10+
              #5#3#8#11#8#12#12#6#10#8#7#9#4#11#5#6+
              #7#7#10#11#6#10#13#8#9#8#12#10#13#8#8#11+
              #12#8#11#4#9#8#9#10#8#9#8#9#6#6#6#8+
              #6#9#7#12#9#7#8#8#10#8#9#17#10#10#12#6+
              #11#10#8#10#6#10#12#8#17#15#5#11#9#7#11#8+
              #12#12#7#8#9#8#7#4#9#4#9#8#15#14#15#10+
              #6#12#6#15#6#7#12#13#9#14#7#11#10#10#10#8+
              #8#10#12#8#10#11#11#7#9#9#9#10#9#12#11#7+
              #12#5#9#13#3#6#11#6#18#12#15#8#11#9#7#7+
              #7#9#12#10#7#8#11#9#7#7#8#10#20#16#15#12+
              #13#12#15#9#5#7#9#11#7#7#10#0#0#0#0#0+
              #3#3#3#4#4#4#5#6#6#10#10#16#0#9#0#2+
              #3#4#4#5#5#6#9#11#14#14#19#0#8#14#2#6+
              #4#7#7#11#14#4#6#10#11#12#14#15#16#0#5#8+
              #11#11#15#8#7#0#4#6#7#8#8#8#9#10#10#10+
              #13#13#14#14#15#16#0#8#0#4#4#4#5#5#5#5+
              #6#6#6#6#6#6#6#6#6#7#7#7#7#7#7#7+
              #7#7#8#8#8#8#8#8#8#8#8#8#8#8#9#9+
              #9#9#9#9#9#9#9#10#10#10#10#10#10#10#10#10+
              #10#10#10#10#11#11#11#11#11#11#11#12#12#12#13#14+
              #14#14#14#14#14#15#15#5#6#7#7#8#17#6#8#4+
              #12#16#17#18#21#0#9#9#11#6#6#7#0#8#10#10+
              #11#12#12#12#13#16#19#19#0#6#8#8#10#0#10#10+
              #0#5#5#5#6#6#6#7#7#7#7#7#7#8#8#8+
              #8#8#8#8#8#8#8#8#9#9#9#9#10#10#10#10+
              #10#10#10#11#11#11#11#11#11#11#11#11#11#11#12#12+
              #12#12#12#13#13#14#14#14#15#15#19#0#8#0#5#5+
              #6#6#7#7#7#7#8#9#9#10#10#10#11#11#11#16+
              #5#5#5#5#6#6#7#7#7#7#7#7#8#8#8#8+
              #8#8#8#9#9#9#9#9#10#10#11#11#13#13#13#14+
              #14#16#19#20#5#7#5#7#7#8#10#10#11#15#9#17+
              #20#0#0#6#10#2#5#10#12#7#9#9#14#16#16#17+
              #6#6#6#6#6#6#6#7#7#7#8#8#8#8#8#8+
              #8#8#8#8#9#9#9#9#9#9#9#9#9#10#10#10+
              #10#10#10#11#11#11#11#11#11#11#11#11#11#12#12#12+
              #12#13#13#14#14#14#15#20#21#22#0#5#5#6#6#6+
              #6#6#6#6#7#7#7#7#7#7#7#7#7#7#7#7+
              #7#7#7#7#7#7#7#7#7#7#7#8#8#8#8#8+
              #8#8#8#8#8#8#8#8#8#8#8#8#8#8#9#9+
              #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9+
              #9#9#9#9#9#9#9#9#9#9#9#9#9#10#10#10+
              #10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+
              #10#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11+
              #11#11#11#11#11#11#11#11#11#11#11#12#12#12#12#12+
              #12#12#12#12#12#12#12#12#12#12#12#12#12#13#13#13+
              #13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14+
              #14#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15+
              #15#16#16#16#16#16#16#16#16#16#17#17#17#17#17#18+
              #19#19#19#20#20#22#0#9#6#7#9#9#10#10#11#0+
              #6#7#13#0#6#7#8#8#8#8#9#9#9#10#10#10+
              #11#11#11#11#11#11#11#11#11#11#11#11#12#12#12#12+
              #12#12#12#12#12#12#13#13#13#13#13#13#13#13#14#14+
              #14#14#14#15#15#15#15#16#16#16#17#17#19#23#25#3+
              #7#8#12#5#5#5#5#5#5#6#6#6#7#7#7#7+
              #7#7#7#7#7#7#7#8#8#8#8#8#8#8#8#8+
              #8#8#9#9#9#9#9#9#9#9#9#9#9#9#9#9+
              #9#9#9#9#9#9#9#9#9#9#10#10#10#10#10#10+
              #10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+
              #11#11#11#11#11#11#11#11#12#12#12#12#12#12#12#12+
              #12#12#12#12#12#12#12#12#12#13#13#13#13#13#13#13+
              #13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14+
              #14#14#14#14#14#14#14#15#15#15#15#15#15#15#15#15+
              #15#15#16#16#16#16#16#16#17#17#19#25#0#6#6#7+
              #7#8#9#10#11#11#16#7#8#8#8#10#11#11#11#12+
              #14#14#15#15#6#6#7#7#7#7#7#7#7#7#7#8+
              #8#8#8#8#8#8#8#8#8#9#9#9#9#10#10#11+
              #11#11#11#11#11#11#12#12#12#12#12#12#12#12#12#12+
              #13#13#13#14#15#15#17#17#19#3#7#8#9#9#9#10+
              #11#11#12#13#15#16#24#0#0#5#6#6#6#7#7#8+
              #8#8#9#9#9#9#10#10#10#10#10#10#10#11#11#11+
              #11#11#11#11#12#12#12#12#12#12#14#14#15#15#16#17+
              #20#6#14#12#14#0#0#6#7#7#7#7#7#8#9#10+
              #10#11#12#12#13#13#14#15#15#25#5#7#7#8#9#9+
              #11#11#11#11#12#13#14#15#16#16#17#0#5#6#6#7+
              #7#7#7#7#7#7#7#7#7#7#8#8#8#8#8#8+
              #8#8#8#8#8#9#9#9#9#9#9#9#10#10#10#10+
              #10#10#10#10#11#11#11#11#11#11#11#11#12#12#12#12+
              #12#12#12#13#13#14#15#15#15#16#16#18#8#17#4#6+
              #7#7#7#7#9#9#10#10#10#11#11#11#11#11#11#12+
              #12#13#13#13#14#0#4#8#0#6#6#6#7#7#7#7+
              #7#7#7#7#7#7#7#7#8#8#8#8#8#8#8#8+
              #8#8#8#8#8#8#8#8#9#9#9#9#9#9#9#9+
              #9#9#9#9#9#9#9#9#9#9#10#10#10#10#10#10+
              #10#10#10#10#10#11#11#11#11#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#13#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#16#16#16#16#16#16#17#17#17#17#17+
              #19#19#19#20#20#21#24#0#5#8#8#9#10#12#13#14+
              #14#15#16#16#17#17#0#7#7#8#8#8#8#8#8#8+
              #9#9#10#10#10#10#10#10#11#11#11#11#12#12#12#12+
              #13#13#13#13#15#15#16#16#17#17#18#0#11#9#12#5+
              #9#10#10#12#14#15#21#8#8#9#11#12#22#0#6#6+
              #7#7#7#7#7#7#7#7#7#7#8#8#8#8#9#9+
              #9#9#9#9#9#10#10#10#10#10#10#10#10#11#11#11+
              #11#11#11#11#12#12#12#12#13#13#13#13#13#13#14#14+
              #14#14#14#14#14#15#16#16#17#17#20#5#9#7#8#12+
              #3#3#8#8#8#8#8#8#8#8#9#9#9#10#11#11+
              #11#11#12#12#13#13#13#14#14#15#19#20#0#6#6#6+
              #6#6#7#7#7#8#8#8#8#8#8#8#9#9#9#10+
              #10#10#11#11#11#11#11#11#11#11#11#11#11#12#12#12+
              #12#12#12#12#12#12#12#13#13#13#13#13#13#13#13#14+
              #14#14#14#14#15#15#15#16#16#16#16#19#3#15#3#8+
              #10#6#6#8#8#8#9#9#9#9#9#9#9#9#10#10+
              #10#10#10#10#10#10#10#11#12#12#12#12#12#12#12#12+
              #12#12#13#13#13#13#13#14#14#15#15#15#15#15#15#15+
              #16#17#17#17#18#20#19#13#13#14#7#7#7#7#7#8+
              #8#8#8#8#8#8#8#8#8#8#8#8#9#9#9#9+
              #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#10+
              #10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+
              #10#10#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#13#13#13+
              #13#13#13#13#13#13#13#13#14#14#14#14#14#14#14#14+
              #14#14#14#14#14#15#15#15#15#15#15#15#14#16#16#16+
              #16#16#16#16#16#16#16#16#17#17#17#17#18#13#14#8+
              #9#9#9#11#11#11#12#12#14#16#7#8#9#9#9#9+
              #9#9#9#9#9#10#10#10#10#11#12#12#12#12#13#15+
              #16#10#5#8#11#12#12#13#13#13#14#14#8#9#12#16+
              #16#17#4#6#6#7#8#8#8#8#8#8#8#9#9#9+
              #9#9#9#10#10#10#10#10#10#11#11#12#13#13#14#14+
              #16#18#18#20#21#9#9#9#9#10#10#10#10#11#11#11+
              #12#12#14#9#10#11#12#13#14#15#15#9#16#6#8#9+
              #11#11#12#12#12#13#14#10#11#12#14#17#10#10#12#12+
              #12#13#16#16#16#22#5#6#7#7#9#10#10#11#13#0+
              #11#13#12#13#15#9#15#6#7#7#7#8#8#8#8#8+
              #8#8#8#9#9#9#9#9#9#9#9#9#9#9#9#9+
              #10#10#10#10#10#10#10#10#10#11#11#11#11#11#11#12+
              #12#12#12#12#12#12#13#13#13#13#13#13#13#13#14#14+
              #14#15#15#16#17#17#17#17#17#16#7#11#12#13#13#16+
              #9#9#12#13#16#16#4#13#13#17#12#15#16#8#10#10+
              #10#11#11#13#14#7#8#8#8#9#9#9#9#9#10#10+
              #11#11#11#12#12#13#13#13#13#13#13#13#13#14#15#15+
              #15#15#16#16#16#18#21#30#0#11#13#16#8#8#9#11+
              #12#0#7#8#8#9#9#9#9#9#9#9#10#10#12#12+
              #13#14#16#21#7#7#9#10#10#10#10#10#10#11#13#13+
              #14#16#16#17#17#25#0#6#8#9#12#7#8#8#9#9+
              #9#9#9#9#9#10#10#10#10#10#10#10#10#10#10#11+
              #11#11#11#11#11#11#11#12#13#13#13#13#13#14#14#14+
              #14#14#15#15#15#16#16#17#17#18#19#18#21#11#12#17+
              #19#8#9#9#9#9#9#10#10#10#11#11#11#11#12#12+
              #12#12#13#13#13#13#14#14#14#14#15#15#16#16#16#17+
              #18#7#8#9#9#9#10#12#13#17#9#10#10#12#13#14+
              #14#16#17#17#10#16#23#0#6#6#7#7#7#8#8#8+
              #8#8#8#9#9#9#9#9#9#9#9#9#9#10#10#10+
              #10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+
              #11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11+
              #11#11#11#11#11#11#11#11#11#11#12#12#12#12#12#12+
              #12#12#12#12#12#12#12#12#12#12#12#13#13#13#13#13+
              #13#13#13#13#13#13#13#14#14#14#14#14#14#14#14#14+
              #14#14#14#15#15#15#15#15#15#15#15#16#16#16#16#16+
              #16#16#16#17#17#17#17#17#17#17#17#17#17#18#18#18+
              #19#20#14#9#12#13#9#9#10#10#11#12#12#12#13#13+
              #15#15#16#17#18#22#9#11#12#13#17#10#11#7#7#8+
              #9#9#10#10#10#10#10#10#11#11#11#11#11#12#12#12+
              #12#12#12#13#13#13#13#13#14#14#14#14#14#15#15#16+
              #16#16#17#17#17#17#19#18#22#0#7#7#8#8#9#9+
              #10#10#10#10#10#10#10#10#11#11#12#12#12#12#12#12+
              #13#13#13#13#13#13#13#14#14#14#14#14#14#14#15#15+
              #15#15#16#16#16#16#16#16#16#16#17#18#18#18#18#21+
              #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
      BiHua:=0;
    break; // 只要查出第一個漢字即可
  end;
  result:=BiHua;
end;

function ReplaceString(AStr, ASrcStr, ADestStr: string; ASensitive: Boolean;
         AStartPos, ACount: Integer): string;
var
  iPos, iCount: Integer;
  sStr1, sStr2: string;
  sTemp, sTempSub: string;
begin
  //保留起始位置以前的字符串
  sStr1 := Copy(AStr, 1, AStartPos - 1);
  //截取起始位置以后的字符串（包括起始位置字符）
  sStr2 := Copy(AStr, AStartPos, Length(AStr) - AStartPos + 1);
  //判斷是否區分大小寫，如果不區分，則全部轉換為大寫后查找
  if ASensitive then
  begin
    sTemp := sStr2;