如何能得到汉字拼音的第一个字母?(200分)

如何能得到汉字拼音的第一个字母?
(目的:在录入时,有很多人习惯输入字母得到汉字
如:根据'SH',可以查索出'上海'等)

用一级字库，汉字的排序就是按拼音的。

那不和许多输入法一样了？
要效果好，得花很多时间来做的。

我以前在DOS下作过拼音输入法
需要字典，可以MAIL一个给你

我前两天写了一个这样的函数
我发给你

邮件已给你发出了
注意收

如果没有解决问题，请联系。

可以根据汉字的区位码(ord(s[1])-160,ord(s[2])-160)来判断,它是按拼音来排序的

一级汉字
function aPYM(hz:string):String;
begin
case WORD(hz[1]) shl 8 + WORD(hz[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 := '?';
end;
其它的放在数据库中,用数据库查询吧。

http://www.inprises.com/control/pycode.zip
试试这个，它能把汉字转化成拼音

netwind，把你的字典，mail给我一个。
chudx,把你的函数给我也发一个，好吗？
谢谢二位。我也关心这个贴子。
顺便问文一下aerobull，如果是二级汉字那怎么办？毕竟在姓名中出现二级汉字还是蛮
经常的。

bobzane:
"如果是二级汉字那怎么办"
用数据库查询吧，我是这么做的.看看/windows/gbk.txt文件，
它们按部首排的。

我很想回答，可我不敢，因为我被公司开除了，
老板说我泄密，几乎追究刑事责任。。。。。。
KAO

以下源碼是我從網上download下來的,希望原作者:
勍弊貌 最唗衄恀枙EMail: nick_xu@sina.com
原諒!
順便問一下,為什麼在這裡打漢字時,會將它前面的英文字母或標點符號"吃掉"?

unit MainFrm;

interface

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

type
TMainForm = class(TForm)
edtChinese: TEdit;
edtPY: TEdit;
btnConvert: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure btnConvertClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

// 鳳硌隅犖趼腔秞坰竘趼譫ㄛㄩ※犖§腔坰竘趼譫岆※H§
function GetPYIndexChar( 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';
$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 TMainForm.btnConvertClick(Sender: TObject);
var
I: Integer;
PY: string;
S: string;
Chin: string;
Len: Integer;
begin
S := '' ;
I := 1;
Chin := edtChinese.Text;
Len := Length(Chin);
while I <= Len do
begin
if Chin <= Chr(127) then
begin
PY := Chin;
I := I + 1;
S := S + PY;
end
else
begin
PY := Copy(edtChinese.Text, I, 2);
I := I + 2;
S := S + GetPYIndexChar(PY);
end;
end;
edtPY.Text := S;
end;

end.

@-@

可以收队啦，，

我给你发一个，有例子。但是汉字太复杂有多音所以有错的时候

非常感谢几位老师!