有没有办法 从中文字符串生成拼音字母的字串? 好老师我会另开贴给分 比如说原字串为"文件管理",以其每个汉字拼音的第一个字母生成字母字串"wjgl"有什么好办法吗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 从汉字来得到首字母的方法,你再扩展一下应就可以满足你的需求了.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } function getpy(hzchar:string):char; end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }function TForm1.getpy(hzchar: string): char;begin case WORD(hzchar[1])shl(8)+WORD(hzchar[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'; $B9C1..$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(0); end;end;procedure TForm1.Button1Click(Sender: TObject);var s:string;begin s:=getpy('新')+getpy('闻')+getpy('频')+getpy('道'); showmessage(s);end;end. 请教关于一个系统使用多个数据模块和adoconnetion的问题 关于数据更新的问题,请大侠指导! delphi组合框所返回的值是什么类型的呀? 关于抓屏的一些问题--需要真正的专家 请大虾帮忙看看为什么?? 散分了,想和大家讨论一下门诊分诊的"叫号"处理思路.谢谢啦. 如何得到视频采集卡上人视频信息! 帮忙up也送分:请问有朋友曾经用delphi做com传递自定义结构数组吗? SQL Server在客户端在配置保存在哪里 鬼泣4 在Delphi如何打印jpg文件? com+问题(需要高手的关注)
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function getpy(hzchar:string):char;
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }function TForm1.getpy(hzchar: string): char;
begin
case WORD(hzchar[1])shl(8)+WORD(hzchar[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';
$B9C1..$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(0);
end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=getpy('新')+getpy('闻')+getpy('频')+getpy('道');
showmessage(s);
end;end.