关于汉字生成拼音的的函数
http://www.delphi2007.net/DelphiAPI/html/delphi_20061114182415235.html
怎么把一个调用一个函数就能把一个汉字生成拼音
比如输入"青霉素"生成"qms"
知道的请告诉我一下,谢了!
来自超级猛料的函数:
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);
不错不错!!!
猛啊!
只是拼音首字母吧
我有一个BCB的:
http://community.csdn.net/Expert/topic/5157/5157749.xml?temp=.6221277
改成delphi不难吧
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ǎng
zhù 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ǔ 。
努力方向:--------喝好酒。
转载于:https://www.cnblogs.com/delphi2007/archive/2009/02/03/1382867.html
关于汉字生成拼音的的函数相关推荐
- sql文字转换全拼_SQL自定义函数:由汉字生成拼音全拼
SQL自定义函数:由汉字生成拼音全拼 CREATE function [dbo].[fun_GetPy_quanpin](@str varchar(100)) returns varchar(8000 ...
- MySQL 创建函数, MySQL定义函数实现汉字转拼音 MySQL汉字转拼音MySQL汉字生成拼音字符串
MySQL 创建函数, MySQL定义函数实现汉字转拼音 MySQL汉字转拼音 一.MySQL创建函数 1.语法 CREATE FUNCTION fun_name([paramName type , ...
- [C#程序]汉字转拼音缩写的函数
[C#程序]汉字转拼音缩写的函数 2008-01-20 17:02 /// <summary> /// 汉字转拼音缩写 /// Code By ...
- javascript 汉字生成拼音
在网上下载的一个汉字生成拼音的js,很有用,大家一起分享! var PinYin = {"a":"/u554a/u963f/u9515","ai&qu ...
- VB实现 汉字转拼音缩写的函数
汉字转拼音缩写的函数(VB) Public Function getPYChar(char As String ) As String Dim lChar As L ...
- java将汉字转成拼音首字母大写字母_java 根据汉字生成拼音全拼或拼音首字母的示例...
1.情景展示 java 根据中文生成对应的拼音 2.准备工作 所需jar包:pinyin4j-2.5.0.jar 3.解决方案 导包 import net.sourceforge.pinyin4j.P ...
- 汉字转拼音缩写的函数以及其他函数
/**//// <summary> /// 清空指定页面上所有的控件内容,包括TextBox,CheckBox,CheckBoxList,RadioButton,Radio ...
- python学习笔记-day6-函数的延续【汉字转拼音模块,函数返回多个值,匿名函数,列表生成式,generator生成器,三元运算符】...
继续来说函数的后续知识点,主要是函数返回多个值,匿名函数,三元运算符,算是比较小的知识点. 一.汉字转拼音模的使用 1.安装模块 #install xpinyin 2.如果使用 结果: 二.函数返回多 ...
- 刚刚整理好-汉字转拼音缩写的函数(C#)
在CSDN上找了一下,没有找一完整的转换函数,特在前人基础上整理了一下,接下来的项目中有可能用到.感谢bugfree(八个飞飞). /// <summary> /// 汉字 ...
最新文章
- SQL 2008 安装资料及下载地址
- 对kubernetes的认识
- [译]写程序更快、更好、更便宜的艺术
- eclipse折叠if语句块_Python学习日志01判断 if 语句
- 苹果笔记本电脑亮度无法调节_苹果MacBook AirM1评测:M1芯片给您不一样的体验
- kafka----zookepeer
- mysql empty table_【MySQL】 empty table and delete table.
- java 并发框架源码_某网Java并发编程高阶技术-高性能并发框架源码解析与实战(云盘下载)...
- 用Azure Application Insights 监控Python应用(1)
- jsp+ssh+mysql Java web学生考勤管理系统源码附视频指导运行教程
- 勘测定界坐标导入cad
- 实对称矩阵性质的数学证明
- 从键盘输入10个整数,求其平均值
- Springboot毕设项目咖啡馆管理系统4598u(java+VUE+Mybatis+Maven+Mysql)
- 网页的灵魂,游荡在人机之间的互动——Vuejs动画体验
- 如何选股票-时寒冰-不断更新
- [1064]旅途时间
- 一致性哈希算法的原理与实现
- 中国传统配色网站,你不了解一下吗??
- div+css知识点文档