如何获取汉字拼音首字母？
如何获取汉字拼音首字母？这步论坛上也很多，方法也很多，现在的问题是，如果汉字中有字母，或者数字，那如果保持不变？
如：获取汉abc字123拼音 返回结果： HQHabcZ123PY
[解决办法]
先先分理处汉字 意外的字符。。汉abc字
分成 汉 ,a,b,c,字 这样。
[解决办法]
- Delphi(Pascal) code
function GetPyChar(const HZ: AnsiString): string;const HZCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077), (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000), (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729), (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000), (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));var i,j,HzOrd: Integer;begin i := 1; while i <= Length(HZ) do begin if (HZ[i] >= #160) and (HZ[i + 1] >= #160) then begin HzOrd := (Ord(HZ[i]) - 160) * 100 + Ord(HZ[i + 1]) - 160; for j := 0 to 25 do begin if (HzOrd >= HZCode[j][0]) and (HzOrd <= HZCode[j][1]) then begin Result := Result + Char(Byte('A') + j); Break; end; end; Inc(i); end else Result := Result + HZ[i]; Inc(i); end;end;//简单测试楼主给的字符串，是可以的//摘自:[url=http://www.cnblogs.com/del/archive/2008/10/28/968825.html][/url]
[解决办法]
。。。。。我排版太菜了
摘自:
将汉字翻译成拼音缩写的函数
[解决办法]
有不少人问这个啊，有个之前从盒子上下载的，符合你的要求，可以包含数字、字母等。已转到下载区了
http://download.csdn.net/source/3436095
[解决办法]
if 字母和数字 then 不作处理 else 取汉字拼音首字母
有一个ByteType函数或许用得上
[解决办法]