Unicode汉字拼音首字母Delphi查询函数

本文介绍了一个能够在Delphi2010+Win7环境下运行的程序，该程序能够查询Unicode国际编码表中从4E00到9FA5的20902个汉字中的20807个汉字对应的拼音首字母。对于不在现代汉语常用字表中的汉字，则使用极点输入法的拼音方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本函数可查询Unicode国际编码表中4E00至9FA5共20902个汉字中的20807个，另外的95个用“*”代替。

本程序根据《现代汉语常用字表》中3752个常用汉字为蓝本，提取常用汉字拼音首字母，不在这个范围内的非常用汉字以极点输入法的拼音方案为蓝本，其他数字、字母等符号直接输出。

在Delphi2010+Win7下调试通过。由于源代码内容太多，此处只贴部分代码，全文请看 http://www.tansoo.cn/?p=112

var
022
  frmMain: TfrmMain;
023
 
024
const
025
  //可查询Unicode国际编码表中4E00至9FA5共20902个汉字中的20807个，另外的95个用“*”代替。
026
  PinYin_U: array[$4e00..$9fa5] of char =
027
      'YDKQSX*WZSSXJBYMGCCZQPSSQBYCDSCDQLDYLYBSGJGYPZJJFGCCLZPHWDWZDLJPFJANWJJTMY*Z'+
028
      'WZHFLPPPQHGCCYYWMJQYXXGJ**SDSJN*****ML*RXY*SNG**C*QLGGLLYJLMYZSSECYKXYHQWJSS'+
029
      'GGYXEQEJPWKDJHYCHMYXJTLXJYQBYXCLDMRPJ*WYSRLDZJPCBZJJBRCFTL*CZSTZFXXCHTRQGGBD'+
030
      'LYCCSSYMMRFCYJZBWWJJFFCRWFDFZQPXDDWYLGYFAWJFFXJPDFNZYHHYCYSWCCYQSCLCXXWZZXNB'+
031
      'GNNXBXLZSQSBSGPYSCZDGMDZBQBSCWDZZYYTCHBTSYDFZGNTNXQYWQSKBPHGLXEYBFMJEBJHHGQD'+
032
      'JCYSXSTKZGLYCEGLYSMZXYALMELDCCXGZYRCXSDLTJZCQKCNNJWHJCCZCQLJDTSTBNXBTYXCEQSG'+
033
      'KWJYFLZQLYHJQSPSFXLFPBYQXXXYDCCZYLLLSJXFHJXPJBCFBYABYXBCCZBJYCLWLCZGGBTSSMDD'+
034
      'JCXPTHYQDGJJSCJFZKJZJQNLZWLSLHDZBWJNCJZYZSQQYCJYRCCJJWYBRTWPYFDWEXCSKDZCTBXH'+
035
      'YZCYYJXZCFBZCMJYXXCDCZOTTBZLJEFCKSSSXFYRLNYGMBDTHJXSJJCCSBXRYTSYFBJDZTGBCNCL'+
036
      'CCCZBSACYZQSCJCSHZQYDSLBBJLLMQXLYDZXSJJTCBXLCGLQCCEJBHCJCJJSFXJEJJCLBGXLXJMY'+
037
      'JJQPFZASYJNCYDJXKJCDJSZCBARTCCLAJQMWNQNCLLLKBDBZZSYHJCLTWLCCRSHLLZNCYLNEWYZY'+
038
      'XCZXXGDKDMCCEDEJTSYYS*D*D**SD*J*HRWNQLSBGLXHLGTGXBQJDZ*YJSJYJCJMDNYMGRCJCZGJ'+
039
      'MZMGXMMRYXKJNYMSGMZJYMKMFXMBDTGFBHCJHKYLPFMDSLQJJSMTQGZSJLQDLDGJYCALCMZCSDJL'+
040
      'LNXDJFFFFJCZFMZFFPFKHKGDPKXKTACJDHHZDDDRRCFQYJKQCCWJDXHWJLYLLZGCFCQDSMLZPBJJ'+
041
      'PLSBCJGGDCKKDEZSQSCKJGCGADJTJDLZYCXKLQCCGJCLTFPCQCZGWBJCLSDJJBYJHSJDDWGFSJGD'+
042
      'ACCCTJLPSBKJGQJHZZLJPLGCGJJTHJJYJZCZMLZLYQBGJWMLJKLZDZNJQSYZMLJLLJKGWXMKJLHS'+
043
      'KJGBMCLYYMKXJQLBMCLKMDMXKMYXWSLMLPSJQJCQXYJFJDJDXMXXLLCRQBSJJBGWY*BGGBCYXPJT'+
044
      'GPEPFGDJGBHBNCFJYZJKJKHXQFGQCKFHYGGHDGLLSDJJXPQYAYBNGSXQNSCSWHBSXWHXWBZZXDMN'+
045
      'CCBLBGBBZKLYLXGWXJJWAQZMYWSJQLCJXSJJKJEQXSCWETLZALYYYSDZL*QYSCMTLSHTZCFYCYXY'+