如何獲取漢字拼音簡碼[1]

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    在應用程序中使用漢字字段進行查詢的時候為了查詢簡單方便快速經常在數據庫中存放漢字的拼音簡碼（拼音簡碼也就是每個漢字的第一個拼音字母）通過拼音簡碼對數據進行查詢這樣操作可以避免每次查詢都錄入大量的漢字節省大量的時間本例是在錄入漢字文本框中錄入漢字在單擊確定 按鈕時在顯示拼音簡碼文本框中顯示錄入的漢字的拼音簡碼如圖所示

http://developcsaicn/delphi/images/gif>

    在應用程序中定義一個GetSpell函數參數是要獲取拼音簡碼的字符串（單個字符或單個漢字）然後對這個字符串進行位運算把第一個字節向左移動位再加上第二個字節來獲取這個字符串的編碼通過字符串的編碼返回第一個拼音字母主要代碼如下
    function TFormGetSpell(str: string): char;
    begin
      case WORD(str[]) shl + WORD(str[]) of
       $BA$BC: result := A;
       $BC$BC: result := B;
       $BC$BED: result := C;
       $BEE$BE: result := D;
       $BEA$BA: result := E;
       $BA$BC: result := F;
       $BC$BFD: result := G;
       $BFE$BBF: result := H;
       $BBF$BFA: result := J;
       $BFA$CAB: result := K;
       $CAC$CE: result := L;
       $CE$CC: result := M;
       $CC$CB: result := N;
       $CB$CBD: result := O;
       $CBE$CD: result := P;
       $CDA$CBA: result := Q;
       $CBB$CF: result := R;
       $CF$CBF: result := S;
       $CBFA$CDD: result := T;
       $CDDA$CEF: result := W;
       $CEF$D: result := X;
       $DB$DD: result := Y;
       $DD$DF: result := Z;
      else
       result := str[];
      end;
    end;

right>[]  [http://developcsaicn/delphi/htm>]  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24830.html