学步园

    在应用程序中定义一个GetSpell函数，参数是要获取拼音简码的字符串（单个字符或单个汉字），然后对这个字符串进行位运算，把第一个字节向左移动8位再加上第二个字节，来获取这个字符串的编码，通过字符串的编码返回第一个拼音字母。主要代码如下：
    function TForm1.GetSpell(str: string): char; 
    begin 
      case WORD(str[1]) shl 8 + WORD(str[2]) of 
       $B0A1..$B0C4: result := 'A'; 
       $B0C5..$B2C0: result := 'B'; 
       $B2C1..$B4ED: result := 'C'; 
       $B4EE..$B6E9: result := 'D'; 
       $B6EA..$B7A1: result := 'E'; 
       $B7A2..$B8C0: result := 'F'; 
       $B8C1..$B9FD: result := 'G'; 
       $B9FE..$BBF6: result := 'H'; 
       $BBF7..$BFA5: result := 'J'; 
       $BFA6..$C0AB: result := 'K'; 
       $C0AC..$C2E7: result := 'L'; 
       $C2E8..$C4C2: result := 'M'; 
       $C4C3..$C5B5: result := 'N'; 
       $C5B6..$C5BD: result := 'O'; 
       $C5BE..$C6D9: result := 'P'; 
       $C6DA..$C8BA: result := 'Q'; 
       $C8BB..$C8F5: result := 'R'; 
       $C8F6..$CBF9: result := 'S'; 
       $CBFA..$CDD9: result := 'T'; 
       $CDDA..$CEF3: result := 'W'; 
       $CEF4..$D188: result := 'X'; 
       $D1B9..$D4D0: result := 'Y'; 
       $D4D1..$D7F9: result := 'Z'; 
      else 
       result := str[1]; 
      end; 
    end;