关于汉字生成拼音的的函数 怎么把一个调用一个函数就能把一个汉字生成拼音比如输入"青霉素"生成"qms"知道的请告诉我一下,谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 来自超级猛料的函数:function GetHzPy(const AHzStr: string): string;const ChinaCode: 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; Hz: string[2];begin i := 1; while i <= Length(AHzStr) do begin if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then begin HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160; for j := 0 to 25 do begin if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then begin Result := Result + char(byte('A') + j); break; end; end; Inc(i); end else Result := Result + AHzStr[i]; Inc(i); end; Result := LowerCase(Result);//转为小写end;调用方法: Edit1.Text := GetHzPy('青霉素'); showmessage(Edit1.Text); http://www.dullwolf.cn/去下载汉字转换拼音程序,代码公开的,可以转换成任何程序语言,英文操作系统下好使.qù xià zǎi hàn zì zhuǎn huàn pīn yīn chéng xù , dài mǎ gōng kāi de , kě yǐ zhuǎn huàn chéng rèn hé chéng xù yǔ yán , yīng wén cāo zuò xì tǒng xià hǎo shǐ .支持大部分多音字 zhī chí dà bù fēn duō yīn zì 很长 长远 长久hěn cháng cháng yuǎn cháng jiǔ 生长 成长 shēng zhǎng chéng zhǎngzhù fú suǒ yǒu xiōng di jiě mèi , xīn de yī nián , yǒu gèng duō shōu huò 祝福所有兄弟姐妹,新的一年,有更多收获cún zài wèn tí : -------- hào hē jiǔ 。存在问题:--------好喝酒。fēn xī yuán yīn : -------- jiǔ hǎo hē 。分析原因:--------酒好喝。zǒng jié jīng yàn : -------- hē jiǔ hǎo 。总结经验:--------喝酒好。zhěng gǎi cuò shī : -------- jiǔ hē hǎo 。整改措施:--------酒喝好。nǔ lì fāng xiàng : -------- hē hǎo jiǔ 。努力方向:--------喝好酒。 fastreport里面的frxcrossview怎么手动不了? 请教DELPHI问题... 向高手来解决一下关于socketserver的问题 安装Qreport的bpl文件名字叫什么啊? 一个进程的问题 如何计算天数? ★★★★怎么样才能达到这种效果呢★★★★ webbrowsr设置silent问题 为何无法调用DLL文件?急!!! 请大家进来看看——有关软件分发时的问题 关于汉字生成拼音的的函数 fastReport中,假如字段不存在会报错,怎么实现没有该字段也不报错,并显示0。
const
ChinaCode: 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;
Hz: string[2];
begin
i := 1;
while i <= Length(AHzStr) do
begin
if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then
begin
HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;
for j := 0 to 25 do
begin
if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then
begin
Result := Result + char(byte('A') + j);
break;
end;
end;
Inc(i);
end else Result := Result + AHzStr[i];
Inc(i);
end; Result := LowerCase(Result);//转为小写
end;调用方法:
Edit1.Text := GetHzPy('青霉素');
showmessage(Edit1.Text);
zhī chí dà bù fēn duō yīn zì 很长 长远 长久
hěn cháng cháng yuǎn cháng jiǔ
生长 成长
shēng zhǎng chéng zhǎngzhù fú suǒ yǒu xiōng di jiě mèi , xīn de yī nián , yǒu gèng duō shōu huò 祝福所有兄弟姐妹,新的一年,有更多收获
cún zài wèn tí : -------- hào hē jiǔ 。
存在问题:--------好喝酒。
fēn xī yuán yīn : -------- jiǔ hǎo hē 。
分析原因:--------酒好喝。
zǒng jié jīng yàn : -------- hē jiǔ hǎo 。
总结经验:--------喝酒好。
zhěng gǎi cuò shī : -------- jiǔ hē hǎo 。
整改措施:--------酒喝好。
nǔ lì fāng xiàng : -------- hē hǎo jiǔ 。
努力方向:--------喝好酒。