Delphi中实现汉字拼音声母查询,unit代码如下:
  
  unit Unit1;
interface
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls;
  type
    TForm1 = class(TForm)
      ListBox1: TListBox;
      ListBox2: TListBox;
      Edit1: TEdit;
      Label1: TLabel;
      procedure Edit1Change(Sender: TObject);
      procedure FormShow(Sender: TObject);
      procedure FormDestroy(Sender: TObject);
      procedure Edit1Enter(Sender: TObject);
      procedure Edit1...[ 查看全文 ]