Delphi获取汉字首字母(D2009测试通过)
来源:互联网 发布:2016年气象数据 编辑:程序博客网 时间:2024/06/09 12:09
function cf_valGetPinYin(strHZ: AnsiString): string;constHZCode: 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));vari,j,HzOrd: Integer;begini := 1;while i <= Length(strHZ) do begin if (strHZ[i] >= #160) and (strHZ[i + 1] >= #160) then begin HzOrd := (Ord(strHZ[i]) - 160) * 100 + Ord(strHZ[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 + strHZ[i]; Inc(i);end;end;
- Delphi获取汉字首字母(D2009测试通过)
- delphi获取汉字拼音首字母
- delphi中获取汉字的拼音首字母
- Delphi XE 获取汉字拼音首字母
- Delphi获取汉字拼音以及拼音首字母
- Delphi 取汉字首字母
- 在delphi 7中实现获取汉字拼音首字母
- delphi获取汉字拼音首字母〖各版本通用〗
- 通过汉字得到首字母
- PHP通过生日计算年龄,获取汉字首字母
- C++获取汉字拼音首字母(转)
- 获取汉字首字母(php,java)
- 获取汉字的首字母(Android形式 )
- 获取汉字首字母
- 获取汉字拼音首字母
- 获取汉字的首字母
- 获取汉字的首字母
- 获取汉字首字母
- 深入Delphi下的DLL编程
- Delphi中判断一个文件是不是JPG图片文
- Windows Mobile引路蜂地图开发示例:第一个地图应用
- CnPack20090801更新包
- linux下安装中文man手册
- Delphi获取汉字首字母(D2009测试通过)
- Dolby Digital Plus for Tablets tries to compensate for weak speakers
- 关于7719的音效平衡问题
- Android视图动画---View Animation
- 毕姥爷(毕向东)灌水
- JDBC操作步骤及数据库连接操作
- HDU 2546 饭卡(01背包小变形)
- jquery (function($){}) 和 $(function(){})
- 函数调用栈——再探