unit1.~pas

自动获取汉语拼音的开头

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function getPY(chinese:string):char;
begin
  case word(chinese[1])shl 8 +word(chinese[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';   // 测试的
  $D189.. $D4D0: result:='Y';   //需要测试
  $D4D1.. $D7F9: result:='Z';
 else
   result:=char(32);
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  hz:string;
begin
  edit2.Text:='';
  for i:=1 to length(edit1.text)div 2 do
  begin
    hz:=copy(edit1.Text,i*2-1,2);
    edit2.Text:=edit2.Text+getPY(hz);
  end;

end;

end.