计算拼音码,结果不对,是不是码表不对 ..? 中->Z

Question

if StrComp(pchar(str), pchar('吖')) <0     then   result := str ;
   if StrComp(pchar(str), pchar('八')) <0      then result :=  'A' ;
   if  StrComp(pchar(str), pchar('擦')) <0      then   result :=  'B'     ;
   if  StrComp(pchar(str), pchar('搭')) <0      then result :=  'C'     ;
   if  StrComp(pchar(str), pchar('讹')) <0     then   result :=  'D'    ;
   if StrComp(pchar(str), pchar('发'))  <0      then  result :=  'E'    ;
   if StrComp(pchar(str), pchar('嘎'))  <0       then result :=  'F'  ;
   if  StrComp(pchar(str), pchar('哈')) <0       then  result :=  'G'    ;
   if  StrComp(pchar(str), pchar('讥')) <0       then  result :=  'H'    ;
   if  StrComp(pchar(str), pchar('咖')) <0         then result :=  'J'    ;
   if  StrComp(pchar(str), pchar('廓'))  <0       then result :=  'K'    ;
   if  StrComp(pchar(str), pchar('妈'))  <0       then result :=  'L'    ;
   if  StrComp(pchar(str), pchar('拿'))  <0       then result :=  'M'    ;
   if StrComp(pchar(str), pchar('哦'))   <0       then result :=  'N'    ;
   if  StrComp(pchar(str), pchar('趴'))  <0       then result :=  'O'    ;
   if  StrComp(pchar(str), pchar('七'))  <0       then result :=  'P'    ;
   if  StrComp(pchar(str), pchar('然'))  <0        then result :=  'Q'    ;
   if StrComp(pchar(str), pchar('撒'))   <0      then result :=  'R'    ;
   if StrComp(pchar(str), pchar('他'))   <0      then result :=  'S'    ;
   if StrComp(pchar(str), pchar('哇'))  <0        then result :=  'T'    ;
   if StrComp(pchar(str), pchar('夕'))   <0       then result :=  'W'    ;
   if StrComp(pchar(str), pchar('丫'))   <0      then result :=  'X'    ;
   if StrComp(pchar(str), pchar('帀'))    <0    then   result :=  'Y'    ;
   if StrComp(pchar(str), pchar('咗'))     <0    then  result :=  'Z'

Answer 1

不是码表问题，关键在于你的if 判断，是不是判断出来的结果都是Z？呵呵，还是算法问题....

Answer 2

http://www.dullwolf.cn/去下载汉字转换拼音程序,代码公开的,可以转换成任何程序语言,英文操作系统下好使.qù  xià  zǎi  hàn  zì  zhuǎn  huàn  pīn  yīn  chéng  xù , dài  mǎ  gōng  kāi  de  , kě  yǐ  zhuǎn  huàn  chéng  rèn  hé  chéng  xù  yǔ  yán , yīng  wén  cāo  zuò  xì  tǒng  xià  hǎo  shǐ .支持大部分多音字
 zhī  chí  dà  bù  fēn  duō  yīn  zì 很长  长远    长久
hěn  cháng    cháng  yuǎn      cháng  jiǔ 
生长  成长 
shēng zhǎng    chéng  zhǎngzhù  fú  suǒ  yǒu  xiōng di  jiě  mèi  ，  xīn  de  yī  nián  ，  yǒu  gèng  duō  shōu  huò 祝福所有兄弟姐妹，新的一年，有更多收获
cún  zài  wèn  tí  ： -------- hào  hē  jiǔ  。
存在问题：--------好喝酒。
fēn  xī  yuán  yīn  ： -------- jiǔ  hǎo  hē  。
分析原因：--------酒好喝。
zǒng  jié  jīng  yàn  ： -------- hē  jiǔ  hǎo  。
总结经验：--------喝酒好。
zhěng  gǎi  cuò  shī  ： -------- jiǔ  hē  hǎo  。
整改措施：--------酒喝好。
nǔ  lì  fāng  xiàng  ： -------- hē  hǎo  jiǔ  。
努力方向：--------喝好酒。