根据汉字获取拼音
2011-08-21 18:26
232 查看
function 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'; $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; //测试 procedure TForm1.Edit2Change(Sender: TObject); var i: integer; hz: string; begin edit1.Text := ''; for i := 1 to length(edit2.text) div 2 do begin hz := copy(edit2.Text, i * 2 - 1, 2); edit1.Text := edit1.Text + getpy(hz); end; end;
相关文章推荐
- SQLSERVER、ORACLE中根据汉字获取拼音函数
- ASP.NET 根据汉字获取汉字拼音的首字母(含多音字)
- 根据汉字获取拼音
- 根据汉字获取它的字符串拼音首字母(大写),含多音字
- 根据汉字获取拼音,别人写的,留着有用
- 根据汉字获取它的字符串拼音首字母(大写),含多音字
- 根据汉字获取拼音
- oracle 根据汉字获取拼音首字母大写函数
- 根据汉字内码获取汉字的拼音码
- php根据汉字获取拼音(php基于拼音搜索实现原理)
- 根据汉字获取它的字符串拼音首字母(大写),含多音字
- c# 根据中文汉字获取到拼音
- ORACLE根据汉字获取拼音码:首字母/全拼/首字母截取
- java根据汉字获取拼音的方法
- 根据汉字获取拼音
- ASP.NET 根据汉字获取汉字拼音的首字母(含多音字)
- 处理微博上类似 @ 或者 # 的特殊转义字符 &&&根据汉字字符串获取该字符串的拼音然后取得首字母
- php根据汉字获取拼音(php基于拼音搜索实现原理)
- PHP获取汉字拼音首字母
- 获取字符串中的汉字拼音首字母