unitpyjm.pas

从一级汉字中提取首字母.方便进行拼音查寻.在Delphi7中试行无错误出现.

unit UnitPYJM;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

function getPY(hzchar:string):char;
begin
 case (WORD(hzchar[1])-160)*100+WORD(hzchar[2])-160 of
   1601..1636: result:='a';
   1637..1832: result:='b';
   1833..2077: result:='c';
   2078..2273: result:='d';
   2274..2301: result:='e';
   2302..2432: result:='f';
   2433..2593: result:='g';
   2594..2786: result:='h';
   2787..3105: result:='j';
   3106..3211: result:='k';
   3212..3471: result:='l';
   3472..3634: result:='m';
   3635..3721: result:='n';
   3722..3729: result:='o';
   3730..3857: result:='p';
   3858..4026: result:='q';
   4027..4085: result:='r';
   4086..4389: result:='s';
   4390..4557: result:='t';
   4558..4683: result:='w';
   4684..4924: result:='x';
   4925..5248: result:='y';
   5249..5589: result:='z';
 else
  result:=char(32);
 end;
end;

procedure TForm1.Edit1Change(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.