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

                            
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'

查看回复