delphi2009 中汉字拼音首字母的函数

xbrave 2009-03-11 01:29:08

哪位朋友送一个delphi2009 下的汉字拼音首字母的函数，一定是delphi2009下的函数

...全文

343 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

fjjb 2010-05-10

打赏
举报

跟贴学习

天鸽 2009-03-17

打赏
举报

有意思，学习了

xbrave 2009-03-16

打赏
举报

谢谢

亮剑_ 2009-03-16

打赏
举报

Delphi 2009 之前
Char = AnsiChar;
PChar = PAnsiChar;
String = AnsiString;

Delphi 2009
Char = WideChar;
PChar = PWideChar;
String = UnicodeString;

亮剑_ 2009-03-16

打赏
举报

补充：
在Delphi 2009 中保持既有代码的Unicode兼容性，可利用以下函数。

UTF8 to AnsiString : Utf8ToAnsi
AnsiString to UTF8 : AnsiToUtf8

pathletboy 2009-03-14

打赏
举报

function getPY(hzchar:AnsiString):AnsiChar;

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';

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

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

ELSE

  RESULT:=char(32);

end;

end;

xbrave 2009-03-13

打赏
举报

邮件收到,谢谢tjianliang

亮剑_ 2009-03-13

打赏
举报

[Quote=引用 4 楼 xbrave 的回复:]
谢谢,一级汉字能解决就行,关键是要在delphi2009下能用就行.我的邮箱是xbrave@126.com
[/Quote]
邮件已发，请查收

因为2009支持Unicode，因此估计有些字符串相关的类型及函数都默认为Unicode形式，但应当会保留有兼容函数，具体可查一下官方文档。

ljluck7687 2009-03-12

打赏
举报

我不知道有没有现成的函数，但如果自己写可参考下面的例子：

function GetPYIndexChar(hzchar:string):char;
var
HzcharWord:Word;
begin
HzcharWord:= WORD(hzchar[1]) shl 8 + WORD(hzchar[2]);
case HzcharWord 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..$D1B8 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D4D1..$D7F9 : result := 'Z';
end;
//说明：上面代码并不能处理所有的汉字
end;

xbrave 2009-03-12

打赏
举报

谢谢,一级汉字能解决就行,关键是要在delphi2009下能用就行.我的邮箱是xbrave@126.com

亮剑_ 2009-03-12

打赏
举报

代码有点长，留个邮箱

不光首字母，整个拼音都可以“算”出，但类似多音字的问题没有解决

xjq2003 2009-03-12

打赏
举报

[Quote=引用 1 楼 ljluck7687 的回复:]
我不知道有没有现成的函数，但如果自己写可参考下面的例子：

function GetPYIndexChar(hzchar:string):char;
var
HzcharWord:Word;
begin
HzcharWord:= WORD(hzchar[1]) shl 8 + WORD(hzchar[2]);
case HzcharWord of
$B0A1..$B0C4 : result := 'A';
$B0C5..$B2C0 : result := 'B';
$B2C1..$B4ED : result := 'C';
$B4EE..$B6E9 : result := 'D';
$B6EA..$B7A1 : result :=…
[/Quote]
我来学习一下