下面的代码（取汉字首字母）是用delphi写的，

用《星》怎么来实现呢？

代码如下：

function TForm1.py(x: string): char;

begin

case word(x[1]) shl 8+word(x[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';

$D1B9..$D4D0:result:='Y';

$D4D1..$D7F9:result:='Z';

ELSE

result:=char(32); //返加空值

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

i:Integer;

hp:String;

begin

Edit2.Text:='';

for i:=1 to (length(Edit1.Text) div 2) do

begin

hp:=Copy(Edit1.Text,i*2-1,2);

Edit2.Text:=Edit2.Text+py(hp);

end;

end;

此主题相关图片如下：

我也很想知道，

搭建没有这方面的构件，

可用动态扩展功能来实现，需要一个 dll 动态库文件，方法如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件: