取拼音支持GBK多音字，共计收录2万7千多个汉字。支持取首字母 取带声调拼音 start("软件注册码") '初始化控件，使用控件前必须初始化。注册码不可为空，错误注册码将出现随机弹窗，不影响其他功能。 qpy("要取拼音的汉字",取第几个音) '取拼音 返回汉字的读音,末位数字代表声调,无法识别的字符则返回原字符。 qdys("要判断读音数的汉字") '取读音数 返回汉字读音的数目，无法识别则返回0 qszm("字符串") '取首 字母 返回字符串的拼音首个字母，多音常用字返回常见读音首字母

转载的一位大虾的 非常好用 对于有用的人来说这个分值了 一起共享只为了多个下载通道 不敢少于他的分数 一 特点： 1 支持多音字 支持所有中国汉字 共20902个 包括难字 生僻字 广东白话字 繁体字等所有计算机能显示的全部汉字 例如：镕 啱 揾 叻 嘅 咁 門 長 發財 車 冇乜嘢 2 同时支持Unicode和ANSI字符集 3 支持Delphi6至DelphiXE系列的所有Delphi版本 最后一次测试是XE4 二 实现原理 Unicode ： 1 根据汉字的编码规则 汉字在Unicode

支持delphi6至delphi xe7,支持汉字、生僻字、中文简体、中文繁体、gbk,gb2312，unicode,utf8转为拼音，亲测有效。 //获取指定汉字的拼音索引字母，如：汉 = h。多音字返回多个声母，如：行 = hx function GetPYIndex(const OneWord: String; const OnlyOne: Boolean = False): String; //获取指定字符串的拼音索引字母（多音字总是取第一个音的声母)。如：中山大学 = zsdx fu