计算机二级delphi中获取汉字的拼音首字母计算机二级考试

文章作者 100test 发表时间 2009:05:23 23:03:29
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　这段代码处理范围比较广，对于双单字，较偏的字也都能处理,是目前比较流行且全面的在delphi中获取汉字的拼音首字母的代码.
　　1、以下代码段直接复制在代码里即可.
　　{$R *.dfm}
　　py: array[216..247] of string = (
　　{216}\CJWGNSPGCGNESYPB\ \TYYZDXYKYGTDJNMJ\ \QMBSGZSCYJSYYZPG\
　　{216}\KBZGYCYWYKGKLJSW\ \KPJQHYZWDDZLSGMR\ \YPYWWCCKZNKYDG\,
　　{217}\TTNJJEYKKZYTCJNM\ \CYLQLYPYQFQRPZSL\ \WBTGKJFYXJWZLTBN\
　　{217}\CXJJJJZXDTTSQZYC\ \DXXHGCKBPHFFSSYY\ \BGMXLPBYLLLHLX\,
　　{218}\SPZMYJHSOJNGHDZQ\ \YKLGJHXGQZHXQGKE\ \ZZWYSCSCJXYEYXAD\
　　{218}\ZPMDSSMZJZQJYZCD\ \JEWQJBDZBXGZNZCP\ \WHKXHQKMWFBPBY\,
　　{219}\DTJZZKQHYLYGXFPT\ \YJYYZPSZLFCHMQSH\ \GMXXSXJJSDCSBBQB\
　　{219}\EFSJYHXWGZKPYLQB\ \GLDLCCTNMAYDDKSS\ \NGYCSGXLYZAYBN\,
　　{220}\PTSDKDYLHGYMYLCX\ \PYCJNDQJWXQXFYYF\ \JLEJBZRXCCQWQQSB\
　　{220}\ZKYMGPLBMJRQCFLN\ \YMYQMSQYRBCJTHZT\ \QFRXQHXMJJCJLX\,
　　{221}\QGJMSHZKBSWYEMYL\ \TXFSYDSGLYCJQXSJ\ \NQBSCTYHBFTDCYZD\
　　{221}\JWYGHQFRXWCKQKXE\ \BPTLPXJZSRMEBWHJ\ \LBJSLYYSMDXLCL\,
　　{222}\QKXLHXJRZJMFQHXH\ \WYWSBHTRXXGLHQHF\ \NMCYKLDYXZPWLGGS\
　　{222}\MTCFPAJJZYLJTYAN\ \JGBJPLQGDZYQYAXB\ \KYSECJSZNSLYZH\,
　　{223}\ZXLZCGHPXZHZNYTD\ \SBCJKDLZAYFMYDLE\ \BBGQYZKXGLDNDNYS\
　　{223}\KJSHDLYXBCGHXYPK\ \DQMMZNGMMCLGWZSZ\ \XZJFZNMLZZTHCS\,
　　{224}\YDBDLLSCDDNLKJYK\ \JSYCJLKOHQASDKNH\ \CSGANHDAASHTCPLC\
　　{224}\PQYBSDMPJLPCJOQL\ \CDHJJYSPRCHNKNNL\ \HLYYQYHWZPTCZG\,
　　{225}\WWMZFFJQQQQYXACL\ \BHKDJXDGMMYDJXZL\ \LSYGXGKJRYWZWYCL\
　　{225}\ZMSSJZLDBYDCPCXY\ \HLXCHYZJQSQQAGMN\ \YXPFRKSSBJLYXY\,
　　{226}\SYGLNSCMHCWWMNZJ\ \JLXXHCHSYD CTXRY\ \CYXBYHCSMXJSZNPW\
　　{226}\GPXXTAYBGAJCXLYS\ \DCCWZOCWKCCSBNHC\ \PDYZNFCYYTYCKX\,
　　{227}\KYBSQKKYTQQXFCWC\ \HCYKELZQBSQYJQCC\ \LMTHSYWHMKTLKJLY\
　　{227}\CXWHEQQHTQHZPQSQ\ \SCFYMMDMGBWHWLGS\ \LLYSDLMLXPTHMJ\,
　　{228}\HWLJZYHZJXHTXJLH\ \XRSWLWZJCBXMHZQX\ \SDZPMGFCSGLSXYMJ\
　　{228}\SHXPJXWMYQKSMYPL\ \RTHBXFTPMHYXLCHL\ \HLZYLXGSSSSTCL\,
　　{229}\SLDCLRPBHZHXYYFH\ \BBGDMYCNQQWLQHJJ\ \ZYWJZYEJJDHPBLQX\
　　{229}\TQKWHLCHQXAGTLXL\ \JXMSLXHTZKZJECXJ\ \CJNMFBYCSFYWYB\,
　　{230}\JZGNYSDZSQYRSLJP\ \CLPWXSDWEJBJCBCN\ \AYTWGMPABCLYQPCL\
　　{230}\ZXSBNMSGGFNZJJBZ\ \SFZYNDXHPLQKZCZW\ \ALSBCCJXJYZHWK\,
　　{231}\YPSGXFZFCDKHJGXD\ \LQFSGDSLQWZKXTMH\ \SBGZMJZRGLYJBPML\
　　{231}\MSXLZJQQHZSJCZYD\ \JWBMJKLDDPMJEGXY\ \HYLXHLQYQHKYCW\,
　　{232}\CJMYYXNATJHYCCXZ\ \PCQLBZWWYTWBQCML\ \PMYRJCCCXFPZNZZL\
　　{232}\JPLXXYZTZLGDLDCK\ \LYRLZGQTGJHHGJLJ\ \AXFGFJZSLCFDQZ\,
　　{233}\LCLGJDJCSNCLLJPJ\ \QDCCLCJXMYZFTSXG\ \CGSBRZXJQQCTZHGY\
　　{233}\QTJQQLZXJYLYLBCY\ \AMCSTYLPDJBYREGK\ \JZYZHLYSZQLZNW\,
　　{234}\CZCLLWJQJJJKDGJZ\ \OLBBZPPGLGHTGZXY\ \GHZMYCNQSYCYHBHG\
　　{234}\XKAMTXYXNBSKYZZG\ \JZLQJDFCJXDYGJQJ\ \JPMGWGJJJPKQSB\,
　　{235}\GBMMCJSSCLPQPDXC\ \DYYKYWCJDDYYGYWR\ \HJRTGZNYQLDKLJSZ\
　　{235}\ZGZQZJGDYKSHPZMT\ \LCPWNJAFYZDJCNMW\ \ESCYGLBTZCGMSS\,
　　{236}\LLYXQSXSBSJSBBGG\ \GHFJLYPMZJNLYYWD\ \QSHZXTYYWHMCYHYW\
　　{236}\DBXBTLMSYYYFSXJC\ \SDXXLHJHF SXZQHF\ \ZMZCZTQCXZXRTT\,
　　{237}\DJHNNYZQQMNQDMMG\ \LYDXMJGDHCDYZBFF\ \ALLZTDLTFXMXQZDN\
　　{237}\GWQDBDCZJDXBZGSQ\ \QDDJCMBKZFFXMKDM\ \DSYYSZCMLJDSYN\,
　　{238}\SPRSKMKMPCKLGDBQ\ \TFZSWTFGGLYPLLJZ\ \HGJJGYPZLTCSMCNB\
　　{238}\TJBQFKTHBYZGKPBB\ \YMTDSSXTBNPDKLEY\ \CJNYCDYKZDDHQH\,
　　{239}\SDZSCTARLLTKZLGE\ \CLLKJLQJAQNBDKKG\ \HPJTZQKSECSHALQF\
　　{239}\MMGJNLYJBBTMLYZX\ \DCJPLDLPCQDHZYCB\ \ZSCZBZMSLJFLKR\,
　　{240}\ZJSNFRGJHXPDHYJY\ \BZGDLJCSEZGXLBLH\ \YXTWMABCHECMWYJY\
　　{240}\ZLLJJYHLGBDJLSLY\ \GKDZPZXJYYZLWCXS\ \ZFGWYYDLYHCLJS\,
　　{241}\CMBJHBLYZLYCBLYD\ \PDQYSXQZBYTDKYYJ\ \YYCNRJMPDJGKLCLJ\
　　{241}\BCTBJDDBBLBLCZQR\ \PPXJCGLZCSHLTOLJ\ \NMDDDLNGKAQHQH\,
　　{242}\JHYKHEZNMSHRP QQ\ \JCHGMFPRXHJGDYCH\ \GHLYRZQLCYQJNZSQ\
　　{242}\TKQJYMSZSWLCFQQQ\ \XYFGGYPTQWLMCRNF\ \KKFSYYLQBMQAMM\,
　　{243}\MYXCTPSHCPTXXZZS\ \MPHPSHMCLMLDQFYQ\ \XSZYJDJJZZHQPDSZ\
　　{243}\GLSTJBCKBXYQZJSG\ \PSXQZQZRQTBDKYXZ\ \KHHGFLBCSMDLDG\,
　　{244}\DZDBLZYYCXNNCSYB\ \ZBFGLZZXSWMSCCMQ\ \NJQSBDQSJTXXMBLT\
　　{244}\XZCLZSHZCXRQJGJY\ \LXZFJPHYXZQQYDFQ\ \JJLZZNZJCDGZYG\,
　　{245}\CTXMZYSCTLKPHTXH\ \TLBJXJLXSCDQXCBB\ \TJFQZFSLTJBTKQBX\
　　{245}\XJJLJCHCZDBZJDCZ\ \JDCPRNPQCJPFCZLC\ \LZXBDMXMPHJSGZ\,
　　{246}\GSZZQLYLWTJPFSYA\ \SMCJBTZYYCWMYTCS\ \JJLQCQLWZMALBXYF\
　　{246}\BPNLSFHTGJWEJJXX\ \GLLJSTGSHJQLZFKC\ \GNNDSZFDEQFHBS\,
　　{247}\AQTGYLBXMMYGSZLD\ \YDQMJJRGBJTKGDHG\ \KBLQKBDMBYLXWCXY\
　　{247}\TTYBKMRTJZXQJBHL\ \MHMJJZMQASLDCYXY\ \QDLQCAFYWYXQHZ\
　　).
　　function ChnPy(Value: array of char): Char.