|
- unit PinYin;
- {$mode objfpc}{$H+}
- interface
- uses
- Classes, SysUtils,lconvencoding;
- Type
- TPinYinOrd = record
- PinYin :string;
- GBKVal :Integer;
- end;
- function PinYinCode(GBKVal:Integer):Integer;
- function PinYinStr(InStr:string):string;
- const
- PinYinOrds:Array [0..395] of TPinYinOrd =
- (
- (PinYin:'A';GBKVal:$B0A1),
- (PinYin:'Ai';GBKVal:$B0A3),
- (PinYin:'An';GBKVal:$B0B0),
- (PinYin:'Ang';GBKVal:$B0B9),
- (PinYin:'Ao';GBKVal:$B0BC),
- (PinYin:'Ba';GBKVal:$B0C5),
- (PinYin:'Bai';GBKVal:$B0D7),
- (PinYin:'Ban';GBKVal:$B0DF),
- (PinYin:'Bang';GBKVal:$B0EE),
- (PinYin:'Bao';GBKVal:$B0FA),
- (PinYin:'Bei';GBKVal:$B1AD),
- (PinYin:'Ben';GBKVal:$B1BC),
- (PinYin:'Beng';GBKVal:$B1C0),
- (PinYin:'Bi';GBKVal:$B1C6),
- (PinYin:'Bian';GBKVal:$B1DE),
- (PinYin:'Biao';GBKVal:$B1EA),
- (PinYin:'Bie';GBKVal:$B1EE),
- (PinYin:'Bin';GBKVal:$B1F2),
- (PinYin:'Bing';GBKVal:$B1F8),
- (PinYin:'Bo';GBKVal:$B2A3),
- (PinYin:'Bu';GBKVal:$B2B8),
- (PinYin:'Ca';GBKVal:$B2C1),
- (PinYin:'Cai';GBKVal:$B2C2),
- (PinYin:'Can';GBKVal:$B2CD),
- (PinYin:'Cang';GBKVal:$B2D4),
- (PinYin:'Cao';GBKVal:$B2D9),
- (PinYin:'Ce';GBKVal:$B2DE),
- (PinYin:'Ceng';GBKVal:$B2E3),
- (PinYin:'Cha';GBKVal:$B2E5),
- (PinYin:'Chai';GBKVal:$B2F0),
- (PinYin:'Chan';GBKVal:$B2F3),
- (PinYin:'Chang';GBKVal:$B2FD),
- (PinYin:'Chao';GBKVal:$B3AC),
- (PinYin:'Che';GBKVal:$B3B5),
- (PinYin:'Chen';GBKVal:$B3BB),
- (PinYin:'Cheng';GBKVal:$B3C5),
- (PinYin:'Chi';GBKVal:$B3D4),
- (PinYin:'Chong';GBKVal:$B3E4),
- (PinYin:'Chou';GBKVal:$B3E9),
- (PinYin:'Chu';GBKVal:$B3F5),
- (PinYin:'Chuai';GBKVal:$B4A7),
- (PinYin:'Chuan';GBKVal:$B4A8),
- (PinYin:'Chuang';GBKVal:$B4AF),
- (PinYin:'Chui';GBKVal:$B4B5),
- (PinYin:'Chun';GBKVal:$B4BA),
- (PinYin:'Chuo';GBKVal:$B4C1),
- (PinYin:'Ci';GBKVal:$B4C3),
- (PinYin:'Cong';GBKVal:$B4CF),
- (PinYin:'Cou';GBKVal:$B4D5),
- (PinYin:'Cu';GBKVal:$B4D6),
- (PinYin:'Cuan';GBKVal:$B4DA),
- (PinYin:'Cui';GBKVal:$B4DD),
- (PinYin:'Cun';GBKVal:$B4E5),
- (PinYin:'Cuo';GBKVal:$B4E8),
- (PinYin:'Da';GBKVal:$B4EE),
- (PinYin:'Dai';GBKVal:$B4F4),
- (PinYin:'Dan';GBKVal:$B5A2),
- (PinYin:'Dang';GBKVal:$B5B1),
- (PinYin:'Dao';GBKVal:$B5B6),
- (PinYin:'De';GBKVal:$B5C2),
- (PinYin:'Deng';GBKVal:$B5C5),
- (PinYin:'Di';GBKVal:$B5CC),
- (PinYin:'Dian';GBKVal:$B5DF),
- (PinYin:'Diao';GBKVal:$B5EF),
- (PinYin:'Die';GBKVal:$B5F8),
- (PinYin:'Ding';GBKVal:$B6A1),
- (PinYin:'Diu';GBKVal:$B6AA),
- (PinYin:'Dong';GBKVal:$B6AB),
- (PinYin:'Dou';GBKVal:$B6B5),
- (PinYin:'Du';GBKVal:$B6BC),
- (PinYin:'Duan';GBKVal:$B6CB),
- (PinYin:'Dui';GBKVal:$B6D1),
- (PinYin:'Dun';GBKVal:$B6D5),
- (PinYin:'Duo';GBKVal:$B6DE),
- (PinYin:'E';GBKVal:$B6EA),
- (PinYin:'En';GBKVal:$B6F7),
- (PinYin:'Er';GBKVal:$B6F8),
- (PinYin:'Fa';GBKVal:$B7A2),
- (PinYin:'Fan';GBKVal:$B7AA),
- (PinYin:'Fang';GBKVal:$B7BB),
- (PinYin:'Fei';GBKVal:$B7C6),
- (PinYin:'Fen';GBKVal:$B7D2),
- (PinYin:'Feng';GBKVal:$B7E1),
- (PinYin:'Fo';GBKVal:$B7F0),
- (PinYin:'Fou';GBKVal:$B7F1),
- (PinYin:'Fu';GBKVal:$B7F2),
- (PinYin:'Ga';GBKVal:$B8C1),
- (PinYin:'Gai';GBKVal:$B8C3),
- (PinYin:'Gan';GBKVal:$B8C9),
- (PinYin:'Gang';GBKVal:$B8D4),
- (PinYin:'Gao';GBKVal:$B8DD),
- (PinYin:'Ge';GBKVal:$B8E7),
- (PinYin:'Gei';GBKVal:$B8F8),
- (PinYin:'Gen';GBKVal:$B8F9),
- (PinYin:'Geng';GBKVal:$B8FB),
- (PinYin:'Gong';GBKVal:$B9A4),
- (PinYin:'Gou';GBKVal:$B9B3),
- (PinYin:'Gu';GBKVal:$B9BC),
- (PinYin:'Gua';GBKVal:$B9CE),
- (PinYin:'Guai';GBKVal:$B9D4),
- (PinYin:'Guan';GBKVal:$B9D7),
- (PinYin:'Guang';GBKVal:$B9E2),
- (PinYin:'Gui';GBKVal:$B9E5),
- (PinYin:'Gun';GBKVal:$B9F5),
- (PinYin:'Guo';GBKVal:$B9F8),
- (PinYin:'Ha';GBKVal:$B9FE),
- (PinYin:'Hai';GBKVal:$BAA1),
- (PinYin:'Han';GBKVal:$BAA8),
- (PinYin:'Hang';GBKVal:$BABB),
- (PinYin:'Hao';GBKVal:$BABE),
- (PinYin:'He';GBKVal:$BAC7),
- (PinYin:'Hei';GBKVal:$BAD9),
- (PinYin:'Hen';GBKVal:$BADB),
- (PinYin:'Heng';GBKVal:$BADF),
- (PinYin:'Hong';GBKVal:$BAE4),
- (PinYin:'Hou';GBKVal:$BAED),
- (PinYin:'Hu';GBKVal:$BAF4),
- (PinYin:'Hua';GBKVal:$BBA8),
- (PinYin:'Huai';GBKVal:$BBB1),
- (PinYin:'Huan';GBKVal:$BBB6),
- (PinYin:'Huang';GBKVal:$BBC4),
- (PinYin:'Hui';GBKVal:$BBD2),
- (PinYin:'Hun';GBKVal:$BBE7),
- (PinYin:'Huo';GBKVal:$BBED),
- (PinYin:'Ji';GBKVal:$BBF7),
- (PinYin:'Jia';GBKVal:$BCCE),
- (PinYin:'Jian';GBKVal:$BCDF),
- (PinYin:'Jiang';GBKVal:$BDA9),
- (PinYin:'Jiao';GBKVal:$BDB6),
- (PinYin:'Jie';GBKVal:$BDD2),
- (PinYin:'Jin';GBKVal:$BDED),
- (PinYin:'Jing';GBKVal:$BEA3),
- (PinYin:'Jiong';GBKVal:$BEBC),
- (PinYin:'Jiu';GBKVal:$BEBE),
- (PinYin:'Ju';GBKVal:$BECF),
- (PinYin:'Juan';GBKVal:$BEE8),
- (PinYin:'Jue';GBKVal:$BEEF),
- (PinYin:'Jun';GBKVal:$BEF9),
- (PinYin:'Ka';GBKVal:$BFA6),
- (PinYin:'Kai';GBKVal:$BFAA),
- (PinYin:'Kan';GBKVal:$BFAF),
- (PinYin:'Kang';GBKVal:$BFB5),
- (PinYin:'Kao';GBKVal:$BFBC),
- (PinYin:'Ke';GBKVal:$BFC0),
- (PinYin:'Ken';GBKVal:$BFCF),
- (PinYin:'Keng';GBKVal:$BFD3),
- (PinYin:'Kong';GBKVal:$BFD5),
- (PinYin:'Kou';GBKVal:$BFD9),
- (PinYin:'Ku';GBKVal:$BFDD),
- (PinYin:'Kua';GBKVal:$BFE4),
- (PinYin:'Kuai';GBKVal:$BFE9),
- (PinYin:'Kuan';GBKVal:$BFED),
- (PinYin:'Kuang';GBKVal:$BFEF),
- (PinYin:'Kui';GBKVal:$BFF7),
- (PinYin:'Kun';GBKVal:$C0A4),
- (PinYin:'Kuo';GBKVal:$C0A8),
- (PinYin:'La';GBKVal:$C0AC),
- (PinYin:'Lai';GBKVal:$C0B3),
- (PinYin:'Lan';GBKVal:$C0B6),
- (PinYin:'Lang';GBKVal:$C0C5),
- (PinYin:'Lao';GBKVal:$C0CC),
- (PinYin:'Le';GBKVal:$C0D5),
- (PinYin:'Lei';GBKVal:$C0D7),
- (PinYin:'Leng';GBKVal:$C0E2),
- (PinYin:'Li';GBKVal:$C0E5),
- (PinYin:'Lia';GBKVal:$C1A9),
- (PinYin:'Lian';GBKVal:$C1AA),
- (PinYin:'Liang';GBKVal:$C1B8),
- (PinYin:'Liao';GBKVal:$C1C3),
- (PinYin:'Lie';GBKVal:$C1D0),
- (PinYin:'Lin';GBKVal:$C1D5),
- (PinYin:'Ling';GBKVal:$C1E1),
- (PinYin:'Liu';GBKVal:$C1EF),
- (PinYin:'Long';GBKVal:$C1FA),
- (PinYin:'Lou';GBKVal:$C2A5),
- (PinYin:'Lu';GBKVal:$C2AB),
- (PinYin:'Lv';GBKVal:$C2BF),
- (PinYin:'Luan';GBKVal:$C2CD),
- (PinYin:'Lue';GBKVal:$C2D3),
- (PinYin:'Lun';GBKVal:$C2D5),
- (PinYin:'Luo';GBKVal:$C2DC),
- (PinYin:'Ma';GBKVal:$C2E8),
- (PinYin:'Mai';GBKVal:$C2F1),
- (PinYin:'Man';GBKVal:$C2F7),
- (PinYin:'Mang';GBKVal:$C3A2),
- (PinYin:'Mao';GBKVal:$C3A8),
- (PinYin:'Me';GBKVal:$C3B4),
- (PinYin:'Mei';GBKVal:$C3B5),
- (PinYin:'Men';GBKVal:$C3C5),
- (PinYin:'Meng';GBKVal:$C3C8),
- (PinYin:'Mi';GBKVal:$C3D0),
- (PinYin:'Mian';GBKVal:$C3DE),
- (PinYin:'Miao';GBKVal:$C3E7),
- (PinYin:'Mie';GBKVal:$C3EF),
- (PinYin:'Min';GBKVal:$C3F1),
- (PinYin:'Ming';GBKVal:$C3F7),
- (PinYin:'Miu';GBKVal:$C3FD),
- (PinYin:'Mo';GBKVal:$C3FE),
- (PinYin:'Mou';GBKVal:$C4B1),
- (PinYin:'Mu';GBKVal:$C4B4),
- (PinYin:'Na';GBKVal:$C4C3),
- (PinYin:'Nai';GBKVal:$C4CA),
- (PinYin:'Nan';GBKVal:$C4CF),
- (PinYin:'Nang';GBKVal:$C4D2),
- (PinYin:'Nao';GBKVal:$C4D3),
- (PinYin:'Ne';GBKVal:$C4D8),
- (PinYin:'Nei';GBKVal:$C4D9),
- (PinYin:'Nen';GBKVal:$C4DB),
- (PinYin:'Neng';GBKVal:$C4DC),
- (PinYin:'Ni';GBKVal:$C4DD),
- (PinYin:'Nian';GBKVal:$C4E8),
- (PinYin:'Niang';GBKVal:$C4EF),
- (PinYin:'Niao';GBKVal:$C4F1),
- (PinYin:'Nie';GBKVal:$C4F3),
- (PinYin:'Nin';GBKVal:$C4FA),
- (PinYin:'Ning';GBKVal:$C4FB),
- (PinYin:'Niu';GBKVal:$C5A3),
- (PinYin:'Nong';GBKVal:$C5A7),
- (PinYin:'Nu';GBKVal:$C5AB),
- (PinYin:'Nv';GBKVal:$C5AE),
- (PinYin:'Nuan';GBKVal:$C5AF),
- (PinYin:'Nue';GBKVal:$C5B0),
- (PinYin:'Nuo';GBKVal:$C5B2),
- (PinYin:'O';GBKVal:$C5B6),
- (PinYin:'Ou';GBKVal:$C5B7),
- (PinYin:'Pa';GBKVal:$C5BE),
- (PinYin:'Pai';GBKVal:$C5C4),
- (PinYin:'Pan';GBKVal:$C5CA),
- (PinYin:'Pang';GBKVal:$C5D2),
- (PinYin:'Pao';GBKVal:$C5D7),
- (PinYin:'Pei';GBKVal:$C5DE),
- (PinYin:'Pen';GBKVal:$C5E7),
- (PinYin:'Peng';GBKVal:$C5E9),
- (PinYin:'Pi';GBKVal:$C5F7),
- (PinYin:'Pian';GBKVal:$C6AA),
- (PinYin:'Piao';GBKVal:$C6AE),
- (PinYin:'Pie';GBKVal:$C6B2),
- (PinYin:'Pin';GBKVal:$C6B4),
- (PinYin:'Ping';GBKVal:$C6B9),
- (PinYin:'Po';GBKVal:$C6C2),
- (PinYin:'Pu';GBKVal:$C6CB),
- (PinYin:'Qi';GBKVal:$C6DA),
- (PinYin:'Qia';GBKVal:$C6FE),
- (PinYin:'Qian';GBKVal:$C7A3),
- (PinYin:'Qiang';GBKVal:$C7B9),
- (PinYin:'Qiao';GBKVal:$C7C1),
- (PinYin:'Qie';GBKVal:$C7D0),
- (PinYin:'Qin';GBKVal:$C7D5),
- (PinYin:'Qing';GBKVal:$C7E0),
- (PinYin:'Qiong';GBKVal:$C7ED),
- (PinYin:'Qiu';GBKVal:$C7EF),
- (PinYin:'Qu';GBKVal:$C7F7),
- (PinYin:'Quan';GBKVal:$C8A6),
- (PinYin:'Que';GBKVal:$C8B1),
- (PinYin:'Qun';GBKVal:$C8B9),
- (PinYin:'Ran';GBKVal:$C8BB),
- (PinYin:'Rang';GBKVal:$C8BF),
- (PinYin:'Rao';GBKVal:$C8C4),
- (PinYin:'Re';GBKVal:$C8C7),
- (PinYin:'Ren';GBKVal:$C8C9),
- (PinYin:'Reng';GBKVal:$C8D3),
- (PinYin:'Ri';GBKVal:$C8D5),
- (PinYin:'Rong';GBKVal:$C8D6),
- (PinYin:'Rou';GBKVal:$C8E0),
- (PinYin:'Ru';GBKVal:$C8E3),
- (PinYin:'Ruan';GBKVal:$C8ED),
- (PinYin:'Rui';GBKVal:$C8EF),
- (PinYin:'Run';GBKVal:$C8F2),
- (PinYin:'Ruo';GBKVal:$C8F4),
- (PinYin:'Sa';GBKVal:$C8F6),
- (PinYin:'Sai';GBKVal:$C8F9),
- (PinYin:'San';GBKVal:$C8FD),
- (PinYin:'Sang';GBKVal:$C9A3),
- (PinYin:'Sao';GBKVal:$C9A6),
- (PinYin:'Se';GBKVal:$C9AA),
- (PinYin:'Sen';GBKVal:$C9AD),
- (PinYin:'Seng';GBKVal:$C9AE),
- (PinYin:'Sha';GBKVal:$C9AF),
- (PinYin:'Shai';GBKVal:$C9B8),
- (PinYin:'Shan';GBKVal:$C9BA),
- (PinYin:'Shang';GBKVal:$C9CA),
- (PinYin:'Shao';GBKVal:$C9D2),
- (PinYin:'She';GBKVal:$C9DD),
- (PinYin:'Shen';GBKVal:$C9E9),
- (PinYin:'Sheng';GBKVal:$C9F9),
- (PinYin:'Shi';GBKVal:$CAA6),
- (PinYin:'Shou';GBKVal:$CAD5),
- (PinYin:'Shu';GBKVal:$CADF),
- (PinYin:'Shua';GBKVal:$CBA2),
- (PinYin:'Shuai';GBKVal:$CBA4),
- (PinYin:'Shuan';GBKVal:$CBA8),
- (PinYin:'Shuang';GBKVal:$CBAA),
- (PinYin:'Shui';GBKVal:$CBAD),
- (PinYin:'Shun';GBKVal:$CBB1),
- (PinYin:'Shuo';GBKVal:$CBB5),
- (PinYin:'Si';GBKVal:$CBB9),
- (PinYin:'Song';GBKVal:$CBC9),
- (PinYin:'Sou';GBKVal:$CBD1),
- (PinYin:'Su';GBKVal:$CBD4),
- (PinYin:'Suan';GBKVal:$CBE1),
- (PinYin:'Sui';GBKVal:$CBE4),
- (PinYin:'Sun';GBKVal:$CBEF),
- (PinYin:'Suo';GBKVal:$CBF2),
- (PinYin:'Ta';GBKVal:$CBFA),
- (PinYin:'Tai';GBKVal:$CCA5),
- (PinYin:'Tan';GBKVal:$CCAE),
- (PinYin:'Tang';GBKVal:$CCC0),
- (PinYin:'Tao';GBKVal:$CCCD),
- (PinYin:'Te';GBKVal:$CCD8),
- (PinYin:'Teng';GBKVal:$CCD9),
- (PinYin:'Ti';GBKVal:$CCDD),
- (PinYin:'Tian';GBKVal:$CCEC),
- (PinYin:'Tiao';GBKVal:$CCF4),
- (PinYin:'Tie';GBKVal:$CCF9),
- (PinYin:'Ting';GBKVal:$CCFC),
- (PinYin:'Tong';GBKVal:$CDA8),
- (PinYin:'Tou';GBKVal:$CDB5),
- (PinYin:'Tu';GBKVal:$CDB9),
- (PinYin:'Tuan';GBKVal:$CDC4),
- (PinYin:'Tui';GBKVal:$CDC6),
- (PinYin:'Tun';GBKVal:$CDCC),
- (PinYin:'Tuo';GBKVal:$CDCF),
- (PinYin:'Wa';GBKVal:$CDDA),
- (PinYin:'Wai';GBKVal:$CDE1),
- (PinYin:'Wan';GBKVal:$CDE3),
- (PinYin:'Wang';GBKVal:$CDF4),
- (PinYin:'Wei';GBKVal:$CDFE),
- (PinYin:'Wen';GBKVal:$CEC1),
- (PinYin:'Weng';GBKVal:$CECB),
- (PinYin:'Wo';GBKVal:$CECE),
- (PinYin:'Wu';GBKVal:$CED7),
- (PinYin:'Xi';GBKVal:$CEF4),
- (PinYin:'Xia';GBKVal:$CFB9),
- (PinYin:'Xian';GBKVal:$CFC6),
- (PinYin:'Xiang';GBKVal:$CFE0),
- (PinYin:'Xiao';GBKVal:$CFF4),
- (PinYin:'Xie';GBKVal:$D0A8),
- (PinYin:'Xin';GBKVal:$D0BD),
- (PinYin:'Xing';GBKVal:$D0C7),
- (PinYin:'Xiong';GBKVal:$D0D6),
- (PinYin:'Xiu';GBKVal:$D0DD),
- (PinYin:'Xu';GBKVal:$D0E6),
- (PinYin:'Xuan';GBKVal:$D0F9),
- (PinYin:'Xue';GBKVal:$D1A5),
- (PinYin:'Xun';GBKVal:$D1AB),
- (PinYin:'Ya';GBKVal:$D1B9),
- (PinYin:'Yan';GBKVal:$D1C9),
- (PinYin:'Yang';GBKVal:$D1EA),
- (PinYin:'Yao';GBKVal:$D1FB),
- (PinYin:'Ye';GBKVal:$D2AC),
- (PinYin:'Yi';GBKVal:$D2BB),
- (PinYin:'Yin';GBKVal:$D2F0),
- (PinYin:'Ying';GBKVal:$D3A2),
- (PinYin:'Yo';GBKVal:$D3B4),
- (PinYin:'Yong';GBKVal:$D3B5),
- (PinYin:'You';GBKVal:$D3C4),
- (PinYin:'Yu';GBKVal:$D3D9),
- (PinYin:'Yuan';GBKVal:$D4A7),
- (PinYin:'Yue';GBKVal:$D4BB),
- (PinYin:'Yun';GBKVal:$D4C5),
- (PinYin:'Za';GBKVal:$D4D1),
- (PinYin:'Zai';GBKVal:$D4D4),
- (PinYin:'Zan';GBKVal:$D4DB),
- (PinYin:'Zang';GBKVal:$D4DF),
- (PinYin:'Zao';GBKVal:$D4E2),
- (PinYin:'Ze';GBKVal:$D4F0),
- (PinYin:'Zei';GBKVal:$D4F4),
- (PinYin:'Zen';GBKVal:$D4F5),
- (PinYin:'Zeng';GBKVal:$D4F6),
- (PinYin:'Zha';GBKVal:$D4FA),
- (PinYin:'Zhai';GBKVal:$D5AA),
- (PinYin:'Zhan';GBKVal:$D5B0),
- (PinYin:'Zhang';GBKVal:$D5C1),
- (PinYin:'Zhao';GBKVal:$D5D0),
- (PinYin:'Zhe';GBKVal:$D5DA),
- (PinYin:'Zhen';GBKVal:$D5E4),
- (PinYin:'Zheng';GBKVal:$D5F4),
- (PinYin:'Zhi';GBKVal:$D6A5),
- (PinYin:'Zhong';GBKVal:$D6D0),
- (PinYin:'Zhou';GBKVal:$D6DB),
- (PinYin:'Zhu';GBKVal:$D6E9),
- (PinYin:'Zhua';GBKVal:$D7A5),
- (PinYin:'Zhuai';GBKVal:$D7A7),
- (PinYin:'Zhuan';GBKVal:$D7A8),
- (PinYin:'Zhuang';GBKVal:$D7AE),
- (PinYin:'Zhui';GBKVal:$D7B5),
- (PinYin:'Zhun';GBKVal:$D7BB),
- (PinYin:'Zhuo';GBKVal:$D7BD),
- (PinYin:'Zi';GBKVal:$D7C8),
- (PinYin:'Zong';GBKVal:$D7D7),
- (PinYin:'Zou';GBKVal:$D7DE),
- (PinYin:'Zu';GBKVal:$D7E2),
- (PinYin:'Zuan';GBKVal:$D7EA),
- (PinYin:'Zui';GBKVal:$D7EC),
- (PinYin:'Zun';GBKVal:$D7F0),
- (PinYin:'Zuo';GBKVal:$D7F2)
- );
- implementation
- function PinYinCode(GBKVal:Integer):Integer;
- var
- Hi,Lo,Md:Integer;
- begin
- Hi:=high(PinYinOrds);
- Lo:=0;
- if (GBKVal<PinYinOrds[Lo].GBKVal) or (GBKVal>PinYinOrds[Hi].GBKVal) then
- exit(-1);
- while (Hi>Lo+1) do
- begin
- Md:=(Lo+Hi) div 2;
- if GBKVal<PinYinOrds[Md].GBKVal
- then Hi:=Md
- else Lo:=Md;
- end;
- exit(Lo);
- end;
- function PinYinStr(InStr:string):string;
- Var
- GBKStr :string;
- i,j,k :integer;
- begin
- GBKStr:=ConvertEncoding(InStr,GuessEncoding(InStr),'CP936');
- result:='';
- i:=1;
- while i<length(GBKStr) do
- begin
- if ord(GBKStr[i])>127 then
- begin
- j:=ord(GBKStr[i])*256+ord(GBKStr[i+1]);
- k:=PinYinCode(j);
- if k>=0 then result:=result+PinYinOrds[k].PinYin;
- inc(i);
- end;
- inc(i);
- end;
- end;
- end.
复制代码 |
评分
-
查看全部评分
|