ComboBox首按汉字拼音检索

    #include <vcl.h>
    #pragma hdrstop
    #include "main.h"
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    Tmain_ *main_;
    //---------------------------------------------------------------------------
    __fastcall Tmain_::Tmain_(TComponent* Owner):TForm(Owner){}
    //---------------------------------------------------------------------------
    void __fastcall Tmain_::FormCreate(TObject *Sender)
    {
      ComboBox1->Items->Clear();
      ComboBox1->Text="";
      ComboBox1->Items->Add("³¤É³");
      ComboBox1->Items->Add("±±¾©");
      ComboBox1->Items->Add("Î人");
      ComboBox1->Items->Add("¹ðÁÖ");
      ComboBox1->Items->Add("Î÷°²");
      ComboBox1->Items->Add("ÉϺ£");
      ComboBox1->Items->Add("³É¶¼");
      ComboBox1->Items->Add("ÖØÇì");
    }
    //---------------------------------------------------------------------------
    void __fastcall Tmain_::ComboBox1KeyPress(TObject *Sender, char &Key)
    {
      char c;
      for(int i=0;i<ComboBox1->Items->Count;i++)
      {
        c=GetPYChar(ComboBox1->Items->Strings[i].SubString(0,2));
        if(toupper(c)==toupper(Key))
        {
          Key=NULL;
          ComboBox1->ItemIndex=i;
          break;
        }
      }
    }
    //---------------------------------------------------------------------------
    bool __fastcall Tmain_::In(int Lp, int Hp,int Value)
    {
      assert(Lp<=Hp); // #include <assert.h>
      return ((Value<=Hp)&&(Value>=Lp));
    }
    //---------------------------------------------------------------------------
    //²ÎÊý£ºÒ»¸öºº×Ö
    //·µ»ØÖµ£º¸Ãºº×ÖµÄÆ´Òô
    char __fastcall Tmain_::GetPYChar(AnsiString HZ)
    {
      assert(HZ.Length()==2);
      unsigned short Hi,Lo;
      Hi=(unsigned short)(HZ[1])<<8; // unsigned short ÊÇ2×Ö½Ú
      Lo=(unsigned char)(HZ[2]);     // unsigned char  ÊÇ1×Ö½Ú
      int n=Hi+Lo;
      if (In(0xB0A1,0xB0C4,n)) return 'A';
      if (In(0XB0C5,0XB2C0,n)) return 'B';
      if (In(0xB2C1,0xB4ED,n)) return 'C';
      if (In(0xB4EE,0xB6E9,n)) return 'D';
      if (In(0xB6EA,0xB7A1,n)) return 'E';
      if (In(0xB7A2,0xB8c0,n)) return 'F';
      if (In(0xB8C1,0xB9FD,n)) return 'G';
      if (In(0xB9FE,0xBBF6,n)) return 'H';
      if (In(0xBBF7,0xBFA5,n)) return 'J';
      if (In(0xBFA6,0xC0AB,n)) return 'K';
      if (In(0xC0AC,0xC2E7,n)) return 'L';
      if (In(0xC2E8,0xC4C2,n)) return 'M';
      if (In(0xC4C3,0xC5B5,n)) return 'N';
      if (In(0xC5B6,0xC5BD,n)) return 'O';
      if (In(0xC5BE,0xC6D9,n)) return 'P';
      if (In(0xC6DA,0xC8BA,n)) return 'Q';
      if (In(0xC8BB,0xC8F5,n)) return 'R';
      if (In(0xC8F6,0xCBF0,n)) return 'S';
      if (In(0xCBFA,0xCDD9,n)) return 'T';
      if (In(0xCDDA,0xCEF3,n)) return 'W';
      if (In(0xCEF4,0xD188,n)) return 'X';
      if (In(0xD1B9,0xD4D0,n)) return 'Y';
      if (In(0xD4D1,0xD7F9,n)) return 'Z';
      return char(0);
    }
    //---------------------------------------------------------------------------