当前位置：首页 » 软件开发

开发技术指南» 文章正文

    引言： unit IMCode; // 简化版拼音反查单元 int

 

 

自动生成拼音(汉字反查到拼音)

unit imcode;  //  简化版拼音反查单元

{ imode 二进制功能位说明 【程序编程相关:三层数据库与应用程序服务器的小型介绍（D】

interface 【推荐阅读:用Delphi2005和DUnit搭建敏】

  x x x x x x x x x x x x x x x x 【扩展信息:在WIN2000/XP下添加自定义纸张的】

                            3 2 1

  1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取

  2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 ? (本选项目针对全角字符)

  3: 0 - 生成的串不包括非数字, 字母的其他字符; 1 - 包括

     (控制全角的要输出非数字, 字母字符的; 半角的非数字, 字母字符)

}

function makespellcode(sttext: string; imode, icount: integer): string;

function getspellcode(sztext: pchar; imode, icount: integer): pchar; stdcall;

implementation

uses

  sysutils;

type

 { 拼音代码表 }

  tpycode = record

    pycode: string[6];

  end;

  tfpycodes = array [1..126, 1..191] of tpycode;

const

  pymusiccount = 405;

  pymusiccode: array [1..pymusiccount] of string[6] = { 汉字基本发音表 } (

    a, ai, an, ang, ao, ba, bai, ban, bang, bao,

    bei, ben, beng, bi, bian, biao, bie, bin, bing, bo,

    bu, ca, cai, can, cang, cao, ce, ceng, cha, chai,

    chan, chang, chao, che, chen, cheng, chi, chong, chou, chu,

    chuai, chuan, chuang, chui, chun, chuo, ci, cong, cou, cu,

    cuan, cui, cun, cuo, da, dai, dan, dang, dao, de,

    deng, di, dian, diao, die, ding, diu, dong, dou, du,

    duan, dui, dun, duo, e, en, er, fa, fan, fang,

    fei, fen, feng, fu, fou, ga, gai, gan, gang, gao,

    ge, ji, gen, geng, gong, gou, gu, gua, guai, guan,

    guang, gui, gun, guo, ha, hai, han, hang, hao, he,

    hei, hen, heng, hong, hou, hu, hua, huai, huan, huang,

    hui, hun, huo, jia, jian, jiang, qiao, jiao, jie, jin,

    jing, jiong, jiu, ju, juan, jue, jun, ka, kai, kan,

    kang, kao, ke, ken, keng, kong, kou, ku, kua, kuai,

    kuan, kuang, kui, kun, kuo, la, lai, lan, lang, lao,

    le, lei, leng, li, lia, lian, liang, liao, lie, lin,

    ling, liu, long, lou, lu, luan, lue, lun, luo, ma,

    mai, man, mang, mao, me, mei, men, meng, mi, mian,

    miao, mie, min, ming, miu, mo, mou, mu, na, nai,

    nan, nang, nao, ne, nei, nen, neng, ni, nian, niang,

    niao, nie, nin, ning, niu, nong, nu, nuan, nue, yao,

    nuo, o, ou, pa, pai, pan, pang, pao, pei, pen,

    peng, pi, pian, piao, pie, pin, ping, po, pou, pu,

    qi, qia, qian, qiang, qie, qin, qing, qiong, qiu, qu,

    quan, que, qun, ran, rang, rao, re, ren, reng, ri,

    rong, rou, ru, ruan, rui, run, ruo, sa, sai, san,

    sang, sao, se, sen, seng, sha, shai, shan, shang, shao,

    she, shen, sheng, shi, shou, shu, shua, shuai, shuan, shuang,

    shui, shun, shuo, si, song, sou, su, suan, sui, sun,

    suo, ta, tai, tan, tang, tao, te, teng, ti, tian,

    tiao, tie, ting, tong, tou, tu, tuan, tui, tun, tuo,

    wa, wai, wan, wang, wei, wen, weng, wo, wu, xi,

    xia, xian, xiang, xiao, xie, xin, xing, xiong, xiu, xu,

    xuan, xue, xun, ya, yan, yang, ye, yi, yin, ying,

    yo, yong, you, yu, yuan, yue, yun, za, zai, zan,

    zang, zao, ze, zei, zen, zeng, zha, zhai, zhan, zhang,

    zhao, zhe, zhen, zheng, zhi, zhong, zhou, zhu, zhua, zhuai,

    zhuan, zhuang, zhui, zhun, zhuo, zi, zong, zou, zu, zuan,

    zui, zun, zuo, , ei, m, n, dia, cen, nou,

    jv, qv, xv, lv, nv

  );

  pycodeindex: array [1..126, 1..191] of word = ( { 拼音索引表 }

    (354,279,331,0,190,39,284,67,249,167,353,19,133,92,129,152,31,385,105,131,84,348,348,329,133,0,376,116,283,349,344,87,133,0,0,0,284,202,0,0,0,0,0,0,342,345,0,276,199,243,0,0,52,0,375,102,88,176,170,348,136,180,375,0,354,294,299,94,344,368,344,55,347,333,131,347,353,369,166,74,325,92,0,329,6,19,0,306,0,332,372,114,107,20,33,370,279,258,79,191,243,328,220,83,43,324,62,376,229,354,64,73,329,348,336,92,2,349,232,282,84,305,389,357,134,332,343,336,363,332,217,208,335,340,377,389,13,232,348,294,348,374,107,181,378,21,250,14,371,47,346,369,14,332,250,284,10,121,110,333,91,78,194,19,113,123,102,251,47,337,282,320,106,157,348,101,349,189,340,3,175,77,178,29,37,343,377,263,125,294,56),

    (302,214,130,132,313,373,393,39,404,134,286,313,282,320,20,201,334,318,354,330,340,101,148,329,348,84,167,122,350,332,270,229,330,190,331,339,62,134,375,157,294,123,334,125,16,309,81,344,11,354,336,116,374,375,19,133,220,389,167,323,169,43,387,0,91,310,286,187,304,383,337,237,241,88,167,299,245,80,375,387,178,295,171,122,68,386,12,329,134,200,23,125,347,276,245,350,36,243,264,376,45,325,354,19,309,345,83,305,328,75,34,283,140,62,29,11,367,120,220,369,388,345,353,340,367,47,84,84,375,190,92,348,335,343,294,71,368,373,315,11,360,245,325,296,375,297,331,355,261,217,357,126,180,63,305,109,129,330,278,243,252,35,40,270,11,334,352,220,304,301,346,78,19,333,359,97,270,162,352,362,387,231,295,381,354,368,389,279,43,131,107),

    (370,247,349,62,335,174,11,234,130,166,175,182,243,332,304,350,68,392,278,127,132,318,392,240,160,32,101,241,308,381,325,92,20,121,45,312,278,220,82,332,354,75,170,20,97,332,332,193,347,130,242,127,83,377,2,269,348,137,216,304,348,58,150,0,125,40,128,276,359,24,18,3,303,59,30,158,348,130,243,188,329,214,248,208,32,169,404,152,10,354,16,360,375,294,353,109,247,246,164,308,325,173,40,31,333,311,335,164,179,360,221,305,345,179,202,360,338,265,265,316,32,208,208,130,345,284,0,0,0,0,282,69,0,0,120,329,265,167,354,107,310,0,92,348,184,254,345,184,367,132,98,132,184,377,96,340,353,140,348,189,284,188,134,147,193,84,335,189,303,89,116,226,84,193,242,125,296,186,316,97,131,247,68,88,349,2,164,25,194,384,52),

    (294,74,130,170,330,70,79,79,134,40,374,83,198,375,83,83,139,88,237,150,107,258,43,92,243,53,92,57,323,136,164,84,250,64,193,171,376,17,129,129,278,31,94,43,153,74,77,129,47,131,69,179,363,355,54,0,276,43,54,164,81,31,241,0,43,386,89,240,74,247,385,125,92,345,123,74,375,329,98,283,125,367,139,244,42,31,381,175,164,231,278,147,98,117,367,385,166,134,172,102,128,102,125,125,314,92,125,125,375,31,390,196,164,378,344,131,145,335,375,348,378,196,160,135,147,346,321,334,197,152,129,169,0,131,90,193,37,159,352,0,135,247,175,21,157,139,190,68,340,329,348,343,346,283,168,175,234,284,92,244,128,251,333,348,342,79,135,314,134,57,181,343,343,404,164,34,333,251,357,133,10,0,14,87,87,348,231,134,220,91,75),

    (95,55,133,95,203,133,348,126,141,116,250,79,245,361,152,116,354,102,121,57,153,166,166,298,70,133,250,330,143,345,250,343,209,389,284,330,323,323,335,278,92,288,152,330,335,254,346,248,280,37,340,330,153,92,75,330,270,345,372,107,344,62,368,0,227,0,245,344,375,183,309,281,313,391,81,363,355,164,63,246,5,102,345,164,32,243,164,345,345,355,114,190,262,250,0,162,70,381,282,282,282,348,56,285,136,6,267,284,385,331,334,92,357,265,48,98,249,37,0,114,192,183,341,386,74,347,223,123,348,39,246,335,239,117,114,354,221,342,263,223,90,137,404,91,326,241,329,128,357,37,283,319,326,75,284,135,230,326,197,254,62,284,377,312,330,348,241,237,386,340,348,334,344,250,332,320,239,17,84,346,123,303,55,321,393,21,302,332,123,241,77),

    (75,375,378,343,334,149,284,311,397,341,322,160,314,338,353,189,209,337,0,109,357,173,239,183,389,110,332,160,238,167,6,192,404,299,84,107,356,353,97,97,11,107,348,243,316,345,323,164,249,34,362,344,69,241,62,246,0,114,0,0,167,159,276,0,0,328,349,241,321,244,3,363,209,354,310,157,330,2,400,385,368,358,334,333,384,329,326,309,97,241,241,57,347,386,316,52,110,344,241,372,167,332,350,98,363,104,179,0,62,251,320,0,305,3,57,354,372,377,30,322,0,360,220,190,116,357,119,355,92,376,325,276,340,120,367,345,167,354,271,139,127,345,278,230,300,351,325,350,0,11,0,362,123,309,220,334,244,273,352,114,335,180,29,106,263,321,92,227,329,332,386,175,321,0,301,0,269,0,199,244,14,5,166,391,378,196,304,128,38,128,139),

    (304,282,2,334,174,334,116,121,104,340,332,363,32,238,60,180,116,86,305,347,269,128,334,117,181,254,334,334,92,153,334,109,396,127,340,320,304,343,329,392,79,139,121,24,43,358,57,354,319,330,241,109,166,340,121,349,343,220,294,345,350,55,369,0,385,216,356,335,127,355,2,352,325,354,230,59,336,73,58,336,232,349,391,214,62,158,302,328,331,347,74,339,377,368,130,32,343,185,375,175,121,228,353,220,349,351,186,114,372,164,172,106,202,196,345,164,175,173,196,57,35,236,232,333,185,330,74,148,345,31,350,0,156,302,334,46,119,123,381,372,334,367,164,31,30,164,348,179,360,297,0,365,125,358,378,158,212,0,0,121,349,213,317,141,355,132,233,357,48,121,75,104,314,316,104,253,260,104,303,104,349,122,107,178,104,44,325,355,251,148,240),

    (355,355,344,317,316,316,317,177,121,348,176,176,344,316,313,240,175,150,344,384,297,297,385,58,242,331,278,212,196,124,375,343,348,246,186,261,319,82,14,337,158,131,92,62,337,226,305,250,385,98,303,132,346,0,175,249,96,342,6,171,378,84,116,0,375,5,0,228,193,92,110,404,47,37,349,115,72,371,84,101,220,74,102,29,346,335,285,19,114,55,138,58,108,3,337,332,9,239,11,348,349,107,340,383,246,83,80,252,352,137,331,62,159,135,246,372,169,117,21,132,347,62,344,251,299,374,323,134,178,374,146,279,68,304,23,315,13,332,74,348,375,384,241,134,208,143,154,208,125,89,354,344,97,163,80,344,154,3,282,203,316,36,119,14,166,328,381,10,354,329,129,264,347,94,387,354,120,75,220,84,92,186,279,320,349,83,376,129,130,113,89),

    (45,332,237,162,337,120,71,323,341,330,92,150,350,352,139,297,284,189,327,36,316,252,376,164,231,9,361,72,373,329,374,343,373,2,95,345,140,326,335,172,106,159,279,231,13,35,175,175,223,243,186,196,381,290,174,16,27,375,370,140,63,35,385,0,92,104,244,246,62,52,345,302,366,243,325,383,127,278,278,81,240,318,317,79,252,73,392,62,283,121,74,304,61,329,82,120,304,55,347,378,125,354,244,127,144,348,232,63,126,347,342,304,158,134,118,58,255,243,343,332,330,2,344,59,264,130,404,152,175,345,304,325,121,173,173,265,164,170,31,343,345,162,6,323,270,382,348,181,378,382,116,154,116,340,154,285,183,73,285,348,350,126,227,368,15,299,253,171,54,341,335,203,331,355,323,375,247,0,96,241,188,188,35,363,136,90,306,303,345,14,0),

    (357,335,6,76,309,228,135,335,63,346,119,139,367,12,120,81,64,343,145,5,327,303,329,5,126,166,74,357,126,284,82,123,14,176,74,313,243,133,218,29,332,79,92,114,57,353,131,129,326,376,224,145,376,357,232,37,356,382,345,201,336,82,83,0,355,70,20,385,371,208,355,315,341,375,75,196,14,282,75,110,340,78,374,193,8,84,171,386,254,332,346,182,386,134,258,68,92,87,333,123,135,96,125,125,209,375,373,332,113,101,343,149,345,194,169,229,344,353,345,332,309,321,251,295,114,332,280,283,335,183,84,329,143,157,50,313,337,201,354,238,299,375,107,382,237,318,332,354,345,329,330,345,354,294,164,134,383,241,332,385,68,175,75,75,404,190,48,239,134,23,171,334,286,241,121,84,328,328,304,81,81,310,208,251,131,131,243,63,337,116,323),

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：