delphi将汉字转为首字母
2015-08-20 23:47
471 查看
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StrUtils, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function padl (Int: Integer) : string;
Var
ss : string;
Begin
ss := Inttostr (Int);
While LENGTH (ss) < 3 Do ss := '0' + ss;
result := ss
End;
Function topy (hzstr: string) : string;
Var
PYSTR,S,S1,PYSTR1: string;
n,j,i,STRLEN : Integer;
Begin
S := DupeString (' ', 1000);
S1 := DupeString (' ', 809);
PYSTR :=
S + 'KSXMMCSDQLYBJJJGCZHDFIAWJHPHCYWGJHHDSKKKTMOCXYPSNGSECCLGGLLYJMS XSSGEQEDYXJYYCLDMJRWBBFTEXCHGBCCSRFCJWFFCWDZPXDDWYLFAJPDFNCYCQXXZXNNXXZQBPYSCZGMZBQBSCYCBXQSBHGXEFMBHHGQCXSTGLYGYMXALELCCXZRCSD'
+ S1 + 'TNJJCCZCLJDTSTBNXTYXSGKWYFLHJQSPXFXXDCZLSHXJBCFYBYXCCZBJYCLWLCZ GTSMDCXPQGJSJFZZLSLHDZBWJNCJYSQYCJRCCWYBTYFDWECSKDCBXHYZCYYXZCFBZMJYXXCDCZTBZJESSSXYRNYGMDTHJXSJJCCSBXRYTSYFBJZGCLCCZBSCYZQSCJH'
+ S1 + 'ZQYDSLBBJLLMQXLYDZSJJTCBLCGQCCEJBHCJCJFXJELBGXXMYJJQFZASYJNCYDK JCJSZCBATCCLAJQMWNQNCLLKBDBZZSYHJCLTWLCCRSHLLZNCYLNZXDDCCEEJYSSQGHSDBGHWNLSHTPJYMDYMCJGJMZGXYHYMSMJKLFXMTGHPFMQJSMTGJQDGYALCMZC'
+ S1 + 'SDJLXDFFJCZFMZFFKGPKHRCJQCJDWJLFQDMLZBJJSCGCKDEJCJDLZYCKCCCLFCQ CZGBCLDJJYHDDWGSJDACCCTJLPSKGHZZLJLGCGJJTJJJZCZMLZYJKLZYZMLJKGWXMKJLKJGMCLYKJQLBCKMDXMYXWSLLPSJJCQXYJFJDJDMXXLLCRQJJBMBGGYPJTGE'
+ S1 + 'GDJGNJYJKHQFQCKHYGHDGLLSDJJXAYGXNCSXWWXCCLGXXJAQSCSJKJEXSWZAYDZ LAQYSMTSTZFCYLDJAGYLCLLYYYGLQQKLDHCCCADSGBRLLJSJWRCGQCDHMMSJCYOHXCQGBEHWNCDHGJLGMQWJYCSTWASJPMMRDSZCCYCPCGCHDKGTPBFYHHDWZBTXHQE'
+ S1 + 'EDRSXKGTAXGLTHYDNXPHYLDMZHXLBLBMLSFHSYGGBHYJTDWLQCZEDQDQMGTKLLS ZWJQEQAJDYTLXANZDECQTWWDGQQDWCBCHEQZLXQGZGLNDJCGTADYZZCWYZYMHYHHJCWCXHDNLYSCJYCBCYWYPBGQGTYHCSYGXMCHRGJBWQZLWJSCSGNQBALSZMTJCDG'
+ S1 + 'TCAXLBHHGOXZCPDMHGTGSJCHMRCCJHXHFQCCDXEZBCHCCCDYKXQHLSHYXNSYYDD DNHXCYAYGYFDHDDXPYZNDHTHHYDPCJJCXMTLHBYNYHMHZLLHNMYLLLMDCPPXMXDKYCYDLTACHGZNACLCCLYLCSHZJEZLNRLHYNTKYJPYCHEGTTGQRGTGYHHLGCWYJKP'
+ S1 + 'YYYTTTCLHYLLYTTPLKJYQQZDQXSNMJZXYQFKTFBJDJJCJBTJZGTJYFLQGXBLZFH ZADPMJHLCCYHDZFGYDGCYXSBHDKDHAXXBFBYYAXCQBDJYJJDLJJZLHBJYDEJSQWJLCKCDTCCBKDSZDQJBKKNJGYEGLFYKASNTCHBLGZBYMJNAGZYHEYBCMCTPFZJJHG'
+ S1 + 'CJPLJHDWXXJKYYKSSMWCDQZLPBZDCWZXZAGYKWXLHLCPBCLLOJMMTSLBCDZKDCZ JGQJDCYTZQWZQCSBPKDFQDCDSDDTDMFHTDYZJAQAKTPDJYBDLJHDRQXLXAYDRJLKLYTWHLLRLLCXYLBWSZYMZZHKHXKSMDSYGJFZBSQLCXXNJWMCQOGQMMCZGGBTTBH'
+ S1 + 'YJBEDPJLDYHKCBHFDXBAWHWAJLDYJSFHBLCDQJNCXFJHDFJHWZPHZYFCJZYNXFF WDBZZNYTXYEMBSEHXFZMBFLZRPYMCJRDJGXHJGJJNZZXHGJHYMLPEYYSJGQSHDSCXMFMKCCTXNYBNZHZPTXWYWAYYSLJSQXZDLAELMCBJCLXSQHFWNTFFTNQJJJDXHG'
+ S1 + 'LYCCFLAHYYJLDXHHDYNCJTYWDRMDNQHWQCMFJDPZHMAYXJWZQSXDLMRSPWWCHJB XTGCYYRRLMPAMCQZYJRMXSNTBLNBPYKXMYKYNGJTCHLZHHANMPGWJDZMXXMLLHGDZXYHXKRYCJMFFJYHJFSSQLQXNDYCANNMDCJCYPRNEYTYCYMBSXNDLYLYLJNLQYS'
+ S1 + 'HHMLLYCLJMSSTYNSMCQYNZLHBNNYLRKJRYYJZZHSYTSCJGXZDPHMKCZYQHZJNBH QSNJNTYBKNJQHSNPWXKHJYYBQCBFLDPZBKJSXSDDJEESCMLXXKWLMWWWYDKZGGTGGXBJTDSZXNXUMLPTFCLCXJJLJSXJWXLEDHHRWASCYYBYAWJECWQQJZZYJGXPLTJ'
+ S1 + 'FTPAKQPTLCPCBTXBHBLEFDLEEGQYMSAWHMLJDWYGLYJEXBQFNLYXRDSCTGGXYWL KXQCTLHJLMKKCGYBLLLDZYDHZWBJCJDYZZHYDFQYTYZDEZKLYMHJHTMYZLJNYWZCSKQQTDXWCDRJALWKBDQYNCSRSZJJKCDCDTLCCACQQCZDDXYPLXCBQJYLZLLJDZJ'
+ S1 + 'GYJYJSYXNYYYNXJJKGDAZWRDLJYYYRJLGLLHXJCYKYNQCCLDDNYYYKYHHJCLKPP QZZYJSQPFZDNFPZHDDMBMYYPQJRSSQZSQDGPZJWDQJDHZXWKBPDGPTMJTHZQBGCMBJCZHBBZMQCFMBCMCJXLJBGJTZGMQDYBJZYCTYZTZXTGKMYBBCLCSSQYMSCXFJE'
+ S1 + 'GLSSZBQJJLYDLYCTSQMCWFGKKBQLLLJYXTYLTSDPHNHFJNZYESESDHWDJBSJTFD CZYJSXJDZJJPBSDJGFBKJBXDGJHMGWJJLHHYYYYYWYYCDYMCBTJZWDLFWXWCZJCZCUJZCZLXJJSJBFWBXZBCDCBCCYHMLRBJLRDGRGQSLFYMWWJXJWCSQCTDQHXKXHJ'
+ S1 + 'YBMPJBNTGCCDDYFXBYXCBHXBSXTYMKSXLGKMZXTDHGQJSHQHCYXGLCSQYPDHXMY JBYSTJZLHQTBQXMYHCWLLCYLNEWCDCMLGGQKTLXKGNDGZWJJLXHJDTNCHXERZJYDNYDCQCBHZSBXWGWBXHMYHDYCMKKAQYNZSYQGYSQYSHJGJCNXKZYCXSBKXHYYLCT'
+ S1 + 'YCTWMGCPMGCCCCCMZTASGQZJLOSJYLSTMQSQCZLJQQYPLCYCZTCQQPBQJCLPKHC XYXXCTDDSJCJFFLLXMLWCJCXTSPYXNDTJSJWHQQJCKYYLSJHAYKXCYYDMAMDJMLMCZNCYBZKKYFLMCHCLHXRCJJGSLNMTJGGYGCDDCJZKZCGJYYHZHHQHHESTMDJYYY'
+ S1 + 'QCFRZZDWKGSCCGWDRCQJYAXQKDYKBGWGYQDZYWNPFBAZYBZNBTZZYHNSCPJMQCJ ZPNQCBDJKQQHNGCCXCHBDGDDNZGJDNLZLDJLJYXYSBGTCSKMNJBJSLJCFJJCCFZSYJWBZYZLSSBWWQSMMBDLJYSCTBRCWQCSLQGDHQSQLYZLGNHSDCBTCKPJMGMSPNJ'
+ S1 + 'KJJYNHCWCNSSZXHBYHYZJKJDLLCJTHGCXJJCBYWDWZGGQRHCSSNBEYDZNLQXJME CSDJBLTHNWHWCSZENQZWNKRSCSJCCGFDCSLCCGLLZGCZCTHNJGYAZCMCKCMTCCKBJYGQJBLDXRGQYXCNHGDNLCHJJCDCBCJSBFZTBQDHJTJWJYNLZYBCJDSJJKDXJAJ'
+ S1 + 'YEMMJTCLJYNYYNHJBNGZJGMJXLTBSLLRTYLCLCNXJLLHYLLQQQLJYMCYCXNLMMC CLNLDWDJLLGGJXKYGBPDKFMHCCGXJCZDYBXDNDDYKJJTXDYXMAADZSLOXYJSJZDLBLXXXQQJZUBYLWSJJYJTDYQQZZZZJLZCDZCHPLMQBLFFJZYSJEZFPFZKSYJJHXT'
+ S1 + 'TDXCYSMMTCWBBJSHFGXFQHYZFSJYBXPZLHMBXHZSFDODABALKTSHXKKJJZTHGXH JXKZXSZZHHWTZZZSNXDZYAWLCWXFGYYHXMYYDWQMNJYCYSPJKGWCQHYLJMZXHMCNZHHXCLTJPLXYJHDYYLTTXFSZHYSXSJBJYAYRMLCKDUYHLRLLLSTYZYYHSCSZCXH'
+ S1 + 'YQFPBLFUNTLJMHTQYZWCLLLPSTRBDDLGJBCCRQWWXFZETDMCYGGTJSWJMSYBDQC DHXCCSWJJMBAFYFNHYDXYEZYZSDLSNXCXGBMXYYSNBDCLHBFZDCYFSSSSNYDZDGBAFBDBCSZBFGCYJLMLRZSYQQZYXZLCKBRBRBZCYCJZEEYFGZLYYSFRTKQSXDCMZU'
+ S1 + 'YJLZXSCBTKJBBRXLLFQWJGSQYLPZDJCZABDHZRBJHWNJTJXLHCFSQDQYJHZCWJL BXFTZLLRLQBLCQQCCDFBBHCZLYYGGDGWCFCCQYYYJYRQZFLSZFCQNWLHJCJJCCKEBZZBPDCCMHJGXDGDZQMFGPSYSDFHWJZHYPYYJYHWPBYGXRYLYBHKJKSFTJMMHHT'
+ S1 + 'YYCXYZPDJYCYWMDJJRHLQXSTWSCPJYCBNMGJTYSYZMSJYJHGQMYRSZWTRTZSSKX GQGSPTGCDNJGCLMCGZTQYDJZDLSDGLHYQGGGQHSCPCJHHGNYGKGGMDCLLCCCXQSTGZSLLLMLCSKBDJZZDLMYTPZSQJCJYXEXYZCPSHKZSXCDFMWNLLJJRFJLYSDCCMJ'
+ S1 + 'JDHJNDNRCCFQRHQGLLGXSCSJDJJCDQJLNYHSZXCGJZYPFHDJSBCCZGJJJSJQDYB SSLYCTMQTBHJQMNYGJYNQYQMYGCJKPDCGMYZGQLLSLLCCMHOLZGDYLFZSLJCQZLYLZCJESGNYLLJXGJQLYJYYYRNBCLJSSWCGQCJYLLCLDJELLZLLBNYLGHHXCCQAYJ'
+ S1 + 'KXHKLKSACCQDKKCGYYXYWTJOHTHXFXCCUHCYEYCHBBJQCSCSZSSLZYLGEZMMYSX JQQSJYBYCHDZYWCTJSYDJKCDDJLBDJJZKYSHQXXHQJKHDYXGMAJPCUUPLJSMTXERXJQDUPJDBSMSSTDTSDMLTRZSZMLDJQRNBSQXQYDYYCBDSLMFGBZMDQCHFDTMQCQ'
+ S1 + 'WWTJJZQJJRJHFBCZFJHNXXYWDYHHNMFCPBZPZZLZFHZDLLCFTSKJGDJYHBZKAGH PCCSCSJSSJFJGDYPSHZCWHCSEXFQZYWKUATMLYMQPXXSKJJPXZGMHQYJSPCJLQWGMDBDHYCLHLGLCFYTLJCJNCPJLKPHJNTXTETLSSLSDYHXSCZKWTDWJSLHTJDJGGH'
+ S1 + 'DPHCQFCLJLZPTXNLMCLGQYNBHYLQCZYBBYMRFYHJDSQPXYRHJNQTFGDWECHYGMM YYHSMZGNGCELQQMTCWCHBXJJFYYSJZTYBHSTSYJDNJQSLHYNBYQHLCDCHZMYLFLWXYPJGSYLYMZCTDWGSZSLMMZWWQZSAYYSSSAPCWCMGHHQDZXJGSJHYGLCXYXHBBC'
+ S1 + 'JKLSMALHYCFYGMQYJYCXJLLJGCZGQJCCTOTYXMTSHLWCGBQKPZCXHCYCLCTJCYH XSGCKXZPJJBDHJWPJGSQXXSDMRSZCYZWSXKYTSHBCSPLWSSCJHALCHHYLHFGHXJSXALNYLMDHDXYCXLMCYHCLDYHZMDYSPJTQZNGJFSJHCTSDSZLMSSMNYYMJQJCWCY'
+ S1 + 'YDCHJJJAWBGQYBKFCMJDLCLLYYLSZJDWHXPCBCMLJSCGBHXLQRLCXYSDHXZLLDF HLSLYMJLJYLYJCDNJLFSYJFNLLCQYQFJYYLCLYLMSHDJCYHZLLNWLQXYGYYGXXHHZYXCZQZBNWPYPKPKFMLGXGGBDXZZKZFBXXLCFTYTQHHZJXHQHXXXYWZYSWDXZKX'
+ S1 + 'HZPAGCHCULFJCPJZTHLSXCRHXSHHKJXXZJDCJULYJLKHJXCMHCFACFPQRXQXYJY GPGWSCSUNGWCHKZXHFLXJBYZHTQXNNCYJJMWYJQRHFQSYLJSGWNSLGTCEBHXXWYHHXYNSQYMLJWGYQBBCAJLBCYTJZHYZWLHORJKCZJXXYXCHCYQYXQJDDSJBSYLDSF'
+ S1 + 'XLMDYJMJUCYXLLCXQCLHKLWYXZHDNBRHXJCDSHLBRLMRLLAXHLLLLJLXXXLYCRY LCCGJCMTLKLLYZZPCWHJYZECKZDQYQPCJCYZBBBCYDCNJTRMFGYGBSCGMDQQZMKQLPGTBQCJFKJCXBLJMSWLDTQXLDLPPBSCWRCBJCZGGBHYYFZKZMPJCSTLPNYYXDB'
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + 'KXHHZJXSSTDMSXBZYSHJPFXBQBYLJQKYZZZWLCZFFWYCTBGJBYYSBMSMYDYSHQY ZCGMJMCAGCBBBHBLXTXQXSDJGJDHHXXNB '
+ S1 + 'HNMLNGSLTSMRNEXQJMXLSQGLBHDCGYQYCHWFJYMBYJMJJDPQYAPFXCGJSCRSSTJ LBZJJJLGXZYXYXSQKXBXXGCXPLDYWECDW '
+ S1 + 'WCJMBTXCHQYXXFXLLJSFWDBZCMYLMSWTCBCECBLGDBQZQFJDJHYMCXTXDRMJWRH XCJZCLQDYHLSRSYWWZJYMTLLLTCCJZBSC '
+ S1 + 'KZCYJJSQALMYHWWDXZXQDLLJSGJFJLJHJAZDJGTHHSSTCYJFBSZLXJXRWGLDLZR LZQTGSLLLLLYMXQGDZHBBHLSHQBPFDFMW '
+ S1 + 'HYBJCCLDMZPBZLCYQXLDOCLWDWYYTHCQSCCRSSLFGFPDQMBJSLMTFGJBTMTJWDN MMCTGBDCLFYHSYMJYLDHDZJCCTLCLDLJC '
+ S1 + 'PDDJDSDNBGZXXCJQXCBZXZBZFJSNCTJWHSCMJXTMXSPDSYBZGMLJDACBMDKYCSZ CYFDCTGWHKYJXGYCHNCZSCYZSSDLLQFLQ '
+ S1 + 'LLXFDYHXGGNYWYLLSDBBBJCYJZMLHLJXYYYTDLLLBUBFBQBZMBCLMJPGEHBCQAP HHHZCHXYHJAXHBPHJGPQQZGJJZCUDDQYBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB'
+ S1 + 'ZHHBWYFFQDLZLJXJPALXCDAGLGMQYMXPFMMSHPFMXSYZASHDZKJSMMZZSCNZCBM LTDDNMSZYMZMMQHHCCJEMXXKSTGWLSQLZBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB'
+ S1 + 'LLSJPHLDZYHMXXHGZCJMHXTXFWGMWJDCHMFZZYDKMSCLCMGHSXPSLCJYXMGJYAH JZMCSCXYHMMPMLGXMHLMLGMLTKZQJSZJSBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
+ S1 + 'HYZJZYBDDZWDKGDJLFMEKZJBEZSWJMJYKTEMZNPLBLBPYKKQZGEQLGAKXPLHQWQ CKKCLHYXXBLTCCYSKGCHLCNSZKYDKCQCQCCCCCCACCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
+ S1 + 'LJBMJHQLYWQLGRYDTYKWSADXDDNTQDFQQMGSELSTGPKTQQLAYDLPYTCQAPLLKCC YLPQQCZCLJSLZJXDDBSADLJXZQJYZAHZLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCDDDDDDADDDDDDDDDD'
+ S1 + 'JCYHDYPPYPEAKJYRPCBYMXKLLZLLFQPYLLLMSGLCYRYTMXYCBDCUYSYZTFMSMCL YWZGXZGGLJSGKDTGGZLLDZBCHYYZHZYWXDDDDCDCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'
+ S1 + 'SZYMSDBZYJGTSMTFXQYJSCDGSLNMDLYSZLRXTRZCYXNQFHYZJZYKBPNLYPBLNZZ JHTSHGYZZRDZNBGXSKGJTSYLLGZZBJZKLDCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDCDDDDDDDCCDDDDDDDDDEEEEEEEEEEEEEEEEEEEEE'
+ S1 + 'PBSYLUYQBJFBNJCZXCDJJYXZGGRSRJKCMTJJSJYWQKYHQJRPJBTZLSNSHRNYPJT WBHKLBSJLCWYSJYLYBBWKJDWGCYXCKDZXEFFFFFFFFFFBFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFBFFFFBFFFFFFBFFFFBFFFFFFFFFFFFFBFFFFFFBFBFFFFB'
+ S1 + 'SGZWWYQQYTCTDJLXWKCKKCCCLZCQQDZLQCSFQCHQHSFMKZLLBBSHJDYSJQPLZCD CWJKJJPCMDWJSQYRYHCBYDSDZNGQMBCBLFFFFFFFFFFFFFFFFFFFBFFFFFFFFBFFFGGGGGGGGAGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG'
+ S1 + 'NFFGFSMSQMLGQCYYBKJSRJHZLDCFTLLJGJHDXZCSZZTCGGKXOXBLBBBGCDYJDCZ SZLLJFZGQJCCZBXBSXPSHSCCLWDQJJXMFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGAGGGGGGGGGGGGGGGGGGGAGGGGGGH'
+ S1 + 'CFZHQQMQGSXHTYCNZNQXGPDHCSZCLJBHBDCYCCPBYTZSGYHCKPZJJCNSCDSLLXB MSDLDFJMKDJSLXLSZQPQPGJLLYDSKGQLSGHHHHHHHHHHHHHHHHHHGHDHHGHBHHHHHHHHHHGAHHGGHHHGAHAHHHHHHHHGHHHHHGHHHHHGHHHHGHHHHHHHHHHHHHHHHHH'
+ S1 + 'LKYYHJTTMCYQTZZBSZQZTLLJTYYLLQLLQYZJLBDZLSLYYZXFSZSNHNCZQZBBWCJ RBCYZMTHGJMZCSHTCLZBLEQHXFLYLJQBZHHGHHHHHHHHGHGHHHHFHHHHHFHHHHHHHHHHHHHHHHHHHHHHGHHHHHHHHHHHHHHHHHHHHHGHHHHGGHGHHHHHHHHJJJJJJJJ'
+ S1 + 'GHSTBMZJLXFNBGXJZTSFJMSSNCLKBHSJHTNLZDNDLSJGZJYJCZXDGOGWRWQNZTN FJSCBZMHZJFYRDJBCJZBFZQCHZXFXSBSQJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJGJJJJJGJGJJJJJJJJJJJJJJJJGJCJJJJJJJJJJJJJJJJJJJ'
+ S1 + 'LZCGYFTJDCSZXQJBQMSZKJRHXJZCGBJKHCGGTJKJQALXBXFGDRDYLXJGDTSJXGJ JJCMZLCQSBTSHQBXTTXHXFTRDKFJHZXJFJJJJCJJJJJJJJJJJJJJJJJJJJJJJAJJJJJJJJJGJHJCJJJJJJHCJJJJJJJJJCJJJJJJJJGJJGJJJJJJJJJJJJFJJJJJJJJ'
+ S1 + 'JXRZCDLLLCQCQZQWQXSWTWGWBCCGCGLQZBCLMQQCZGZXZXLJFRHYCFLXYSQXXJK XRMJDCDHMYXBSQBHGCMWFWTGMXLZBGYTGJJJJJJJJJJJJJJJJGJJJJJJJJJCJJJJJJJJJJJJJJJJGJJJGJJJJJJJJJJJJJJJJJJJGJJJJJJJJJJJJJJJJJJJJJJJJJJ'
+ S1 + 'ZWCCDXYZXSWGSYJYZNBGHCJCQSWXCJRTFYCGRHZTXSZCTHCBFCLSYXCLJQMZLMP LXCJSCLBYSJQHXJSXRXSJCZZSSLJFLCZJDJCJJKGKGKJJKKKCKKKKKKKGGGHKKKKKHKKKKKKGGHKKKKKKKKKHKKKKKKKKGKKGKKKKKKKKKKKKKKKKJKKKKKKKKKKKKG'
+ S1 + 'RCRXHHZXQYDMGJSJJHQCJHBCYNSSSRJBQLFXQPLMLXZKYXLJCJLCYCRJZZLLLLL HRZZDXYTWXCXFFQBPXZGYGZTCQWYLTLSGKKHKHHKGGKKLLLJLLLLLLLLLLLLLLLLLLLLJLLHLLLLLLLLLLLLLLLLLLLLLLLJLLLLLCLLLLLCLLLLLLCLLLLLLLLLLLL'
+ S1 + 'RMGZJMMGKJFSGZYAFSMLBFCWBJCLJMZLPJJLMDXYYFBYGQYGXZYRQQHXXYKQYGY FSFSLNQGCFHCCFXBLBLZQXXXKHHSSHJDSLLLLDLLLLLLLLLLLCLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLCLLLLLLLLLLLL'
+ S1 + 'CXCZWHHHPLHALPQAHXDUGGGDNEDTPCCJJCLJZLJLHYHYQYDHZUZCZYTTEYTSHSL JBDGWXPCDUTJCKLLWKLLCSSTKNTDNQJTTLLLLLLLJLLHLLLLLLLLLLLLLLLLLLLLLLLLLLLBLLLLLLLLLKLLLLLLLGGLLLLLLLLLLLJLMMMMMMMMMMMMMMMMMMMMMMM'
+ S1 + 'LZSSZYQKCGBHCRRYCHBPFYRWQBBXKDBBBCTFFSNPCFXMQKCYPCXEHZGCTCMXXMX NWWXJYHLCTMCSJTJCTCTCNDNPGLCCJLSBMHHMMMMMMMMMLMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMBMBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM'
+ S1 + 'LPGJCDNNDSCJDBGWMNDCLODANSYZRDWJJDBCQWSTSZYLJPXLOCBGPCJFCLHYLXC CNLCDXTFZJHCYXSFZDKNJCJGLTQCBXEWZMMMMMMMMMMMMMMMMMMMMMMMMMMMBMMMMMMNNMNNNNNANNNNNNNNNNNCNNNNNNNNNNNNNNNNNDNNNNNNNDNNNNNNNNNCNNN'
+ S1 + 'XBXKLYLHZLQZLLZQWGLGJJGCBNGJDJXTXCQYXJJXSJRSTPHGHTXDFPTFCLLXHFK FZFLYLUBNJHJBMDDBCYCLDXTDDQLYJJHQNNNCCNNNNLNNNNNNNNNNNEOOOOOOOPPPMBPBBPPBBPBPPFPPPPLBPPPPBBBBPPPPFPPPPPFPPBPPBPPPPPPFFPHPPPPPPP'
+ S1 + 'LLCSJPYYCJDTJPYCMGXHZHSZCWQWRFXHJJACMRHQYYQPDDJYBYNNBBXYXHZDDNH MRGBWBZZJCUXGLRCCWHZLWDGCGGJYCBMZPBPPPPPPPPPPPPBPPBBBBPPPPPPPBPPPBPBPPPBPPPPPPFBBBBPPPPPBBJQQCQQQQQQJJAQQQQJQGQJQQQQQJQQQQQGLQQ'
+ S1 + 'QZHFGDCJEAQCPJCSZDCYDWLDFRYBYSCCWBXGZMZJTQSCFMXJCJYCHCJWSNSWMJN MTNMCDQDCLLWNKPZGGLCCZMLBQJQDJJQCQHQQQQQQQQQGQJAJQQJQJHQQQCKQQQJCQQQQQQJJQQQQQQQQJCQQQQQQQQQQQQQJQQQQQQQQQKQQQQQQQQQQQQCGJQQJQJ'
+ S1 + 'GHJAWBZJLTTDHHCCHFLSJYSCGCZTJBYMBPDJKXWJYBLXNCWCSBMAYHKJMZZJRXS AQJFLJFHHHYTZJMHSGZJWBWJDYJQQHSLZQJQCQJQQCQQQQQQQKGQJQQQQQQRRDRRRNRRRRRRRRRRRRLRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNRRJRDRRRRSSSSSSSSS'
+ S1 + 'YYMYSZGRXUEYHYSCSYZNLQHLJXCSTLHDQJPCYCYPPNXFYRCMSMSLXGLGCTLXYGZ GZTCPUSLLDTMTCALCPFJCJWTCYYJBLBZLSSSSSSSSSSSSSCSSSCSMSSSSSSCSSSSSSSSDSSSSSSSSSSSCCSQSSDDSSSSCSSCGSCNSSDSSSSSSJSSSSCPSSSSLQSSSSM'
+ S1 + 'JMYLJBGHDCSSDHBCCSXHAMJZBJMCNHJYJYGCHSKQMCZLWJQSMOCDJLYJCHJMYBY LRETFJFRFKSYXFDWDSXXLWSJSLYXSNXWYSCSQKSSSSSSSSSDJSSSSSSSSSSSSSQSSSSSSSSSSSKSSSCJFSSSSSSSSSSSDSSSSSSSSSSCSSSSSSSSSSSSSSSSSSSSSSS'
+ S1 + 'XHAHHJCXLMLJCSQLKYDTTZSKFDXGSJHSXYBDPWNCMPCZCZENYCHQFJXKBDMLJQQ UQSLYXXYLLJDZBLMHBCTTQQWLHOGWBLSCSSSSCSSSQSSSSSSSSSSSSSSLSSSSSCSSSSSSCSSSSSSRSSSSSSSSSSSSSSSSSQSSSSSSDSRSSSSSSSSSSSSSSSSSSDTTCD'
+ S1 + 'ALXQLTERRJLSTMWPYXJJXQSJFBNYXYJLLYQYLTHYLYMHGLJDMLLHFZWKHLJLHLJ KLJSTLQXYLMBSXCHXCFXLHHHJBYZZKBSSTTTTTTCSTTTTTTNTTHDSTDTTTTTTTTTSTTTTTTTCTCCDTCTTTTTTDTTTTTTTTTDTCDDTBTTTTTTTTCTTTTTDTTTDTTTTTJ'
+ S1 + 'DQCUJZSYGZXBEBCQWYYJQTQWJHQQZMWFFHFRBNDPCJLFZGPBXDBBZTGYGCHBFLY XLXPJSYWMNGQLXJQJTCBHXSFXLBXYJDDHDTTTTTTTDCTTTTTTTDTTTDTSTTTTTTCTCTCTQTTTTTTTTTCTTTDDTTTTTWGJGGWMWWWWWWKWWKWWWHWWWMWHWWKWWWWWWW'
+ S1 + 'SJQYJSLLDTKHHBFWDYSQRNTLDEBDWCMULJTMXMJLXYNWFYMWRXHYSCTZZCYMLDQ LGAQYJBSCQWLBRJWXHSBHYDNHHGMYWYTZWWWHHGWWWWWWWWWWEWWWWMWWWWLWWWWWWWWWWWWWWWWWWWWGWWGWOWWWWWWWWMWWWTMWWWWWWWWWWWWMWWWCXSXXXXXXTS'
+ S1 + 'CSQTSDLWDCJPYCLQYJWXMZZMGLCLMXCMZSQTZPJQBLGXJZBLJJXCJNXMCXSCCDL CJJDJCXSKYCLZXZZXMXQRJHZJBHFLJLMLXXXXXXXXXXXXXXXXXCXXJXHXXHXXHJXXXXSJHHXXXXJXXXXXDXXXJXXXXKXXXWXXXRXXXXXXXXXXXXHXXXXXQXQXAXXXXX'
+ S1 + 'QNLDXCLLLPYPNGYSXCQHCMJSZHNFZMEKMXKYQLXSDLXHWDCWDZGYYFFJZDYZJQX RZJCHRTLBYZBSJHXZTPBDFGZZRYTJGXCQXXJXCXXXSXHWXJXXCXXXXXXXXXXXXXXXXXXXSXXXXXXXXXGHCNXXSKXXXXXXXXXXXXXXTXQNXSXXHXXXXXCXCXXXHXXXXX'
+ S1 + 'YMBUCCKRJJBJERZGYKXSKNSJKLJSGZLJYBZSQLBCKTYLCCCLFFGADZQJGKQTSFC XDKDXXYFTTYHPDWTGHRYNJCBSNYJHKLLSSXHXXXHJXXXXXJXXXSXXXXXXYJYYXYYYYAYYYEEYYYYYYYYXDYYYYYTYYYWYYYYYYYYYPYYYYYYYYYYYYYXYYAYYYYYYJY'
+ S1 + 'LNDXXWBCJSBBFJJJCJCZBBXXBRMLAYGCSNCCDDTBLFZTDWSBXBCLLXSLZDJCSJY LYXBFFBHJJJGBYGJPMMMMSSCZJMTLYZJXYYYYYTJYLYYYSXYSYYXYYXYYYSYYYJYYYYYYSCYYNYYYYYYJYJXSYYYEGYYYYSYYYYYYXYYYYYYYYYSYYYYYLYJYYYYYYY'
+ S1 + 'SWXTYLEDQPJMYGQZJGDBLQJWJQLLSDGYTQJCZCJDDHQGSGJHQXNJLDBXSGZHCWY LJWYWYDFKQJJFXDHCTXJDRXYSQTJXYEBYYYYYYYYYYYYYYYYYYGYYYYYYYYYYYYCYTYYYYYYYYYYYYLYWYYYYYYYYYXYYYYYTSDYTYYYYYYYYYYYHYYXYXOYYWYYYYY'
+ S1 + 'YSSJXJNNCYZXFXCSYSZHYYSCHSHXZZZGZCGFJDLDYNPZGYJYZDDQZPBXCBDZTZC ZYXXYHGSCXSHCGGQHJHGXWSCDMMEHYXGCYYYYSYYYYYYYYHYWYYYYYYYYYYYDHTYYYRYYYYYJYYYWYYYYZZDZZZZZZZZCZZZZZZZZZZZCZZZCZZSZYZZZZCZCZZCZYG'
+ S1 + 'BDCLZKKWJZRCLEKXTDBCYKQQSAYXCJXWWGSBHJSZSDHCSJKJCXSWXFCTYNYDBZC CZJQTZWJQDZCZQZLJCHLNBHPYDXPDXSHGZGZCZZZZZZZCZZQZZDNCZZNCZZZTZZCZZZZZZZZZZZZZCZZQZHZDZZZZSZSZZZZDZYZZZZJZZZZZCCZSZTZZZZZZZZZZZZ'
+ S1 + 'EZDXFPTJQTZZAHYAGNCFCYYHXGNQMYWXTCSPDHHGHMSMXQCXSSBCQSJQXHTYYZX BCLMMSZMJZJLLCOGCSAAJZCHJMCHHCXZSZZZZZQQQZZSZSZZZZZSZZZZZZZZZZZZZDZZZSZZZZZZZCCDZCZZZZCZCZYZZZZCYZZZZZZZZZZZSZCZDZCZZZZZCZCZZZZ'
+ S1 + 'XZDZNLEYJJZJBHQMJZSQTZPSXZTDSXJJLNYAZHHYYSRNQDTHCHAYJYJHDZJZLSW CLTBZYECWCYCRYLCXNHZYDZYDTRXXBCSXZZCZZZYZZZSZZZPZZZZZCZDZZCZZZZZZZZZZZZZCZZZCZZZZZZZZQZZZZZZLCJZCCJJCCJZZQZZZZCZZZZZZZZZZZ '
+ S1 + 'QHXJHHHJXLGDLKFDBSXFZZYYCHTYYJBHECJKGJFXBZJFXBWHDZFYAPNPGDYMSHK HALNBYJTMXYJCTHJBZYFCGTYHWPHFTGZZCJWGNSPGCENEGYPBTWXZDXYKYGTDJNMJQMBSGZSCYJSYYFPGGBZGYCYWJKGALJSWKBJQHYJWDDZLSGMRYBYWWCCGZNKYDG'
+ S1 + 'EZSBZEGPBMDSKBTYCMHBLLHGPZGXZJGZJYXZSBBQSCZZLZCCSTPGXMJSFTCCZJZ DJMCYBZLFCJSAZFGSZLYBCWZZBBZDZYPDTTNGJEYEKZYDCJNMCYLQLYPYQBQRPZSLWBDGKJFYXJWCLTBNCXJJJJCXDTQSQZYCDXXHGCKBPHFFSSPYBGMXJBBYGLBHLS'
+ S1 + 'WYJGXZBDSYUXLGZYBZFBXTXCCXTZLSQQXCGQCCCDDXZJJCCGCTDGSCXDSYJJJCC LDCZTCCGCQJZTEZKKGCFYBJCYCLMKCQZJSMZMPJHSOJNGHDZCDKLGJHSGQZHXQGKEZZWYMCSCJNYETXADZPMDSSMZJJQJYZCDJFWQJBDZBJGDNZCBWHGXHQKMWFBPBQ'
+ S1 + 'DBJNYJCDCQSXCBZJCDJCCCJNQBCMSJQMJJRCJJNJNLLCWJCQJCZPZCDCYCZCGSB ZNCTQCDDJLCBCLLTDSXKJZQDLZLZNTJXCDTJJZKQHYLCGCFPTYJYYZPSJLFCHMQSHGMMXSXJJKDCMBBQBEFSJWHWWGCKPYLQBGLDLCCTNMAEDDKSJNGKCSGXLHZAYBD'
+ S1 + 'BCJLTQJLDGDBBJQDCJWTNZLZCDWLLXWLRSNTQJCCXKJLDFTDGLRLAJJKUYMKQLL DZYTDYYCGGJYXDHFRSKSTCDENQMRKQZHHBTSDKDYLHGYMYLCXPYCJNDQJWXQXFYYFJLEJBZRWCCQHQCSBZKYMGPLBMCRQCFLNYMYQMSQTRBCJTHZTQFRXCHXMCJCJLX'
+ S1 + 'GKCLDAZFKYPBGGPZFEBZZDKDQSPEGJJGHKCZZZSLYSYHQZWFQZNLZZLZHWCGKYP QGNPGBLPLERJYKCCCEYHSBZFWBNYWKGZHQGJMSHZKBSWXEMDLCKFSYDSGLYCJJSSJNQBJCTYHBFTDCYJDGWYGHQFRXWCKQKXEBPDJPXJQSRMEBWGJLBJSLYYSMDXLCL'
+ S1 + 'YLJCZWHXZJZBLFFLGSKHYJZEYJHLPLLLLDZLWCZBLCXBBUBCBBNNZCYRFSRCGYT QZGTZDHDEZCCCCWTTKHDYNYJLXDJYQDJSQKXLHTJRJJMBJHXHWYWCBHTRXXGLHJHFBMGYKLDYXZPPLGGPMTCBBAJJZYLJTYANJGBJFLQGDZYQCAXBKCLECJSZNSLYZH'
+ S1 + 'YWLSHGLBCJBYZJYCTDYNDSACTSZYYEGDHNYCXTDCYSHGZDCCSDDLCCRQSYSELSM HZTEBBCYYLLTQSYFWFHBXSYCHBJBWKGSKLXLZCGHBXZHZNYTDSBCJKDLZAYFFYDLABBGQSZKGGLDNDNYSKJSHDLXXBCGHXYGGDJMMZNGMMCCGEZSZXSJBZNMLZDTHCQ'
+ S1 + 'GHJHGXGFLYCDLFWLJGBXJAQQZJPLNCBXJYQYMRBSYYHKXXSTMXRCZJYWXYHYMCF LZHQMQXDBXBZWZMLDMYCKFMKLZCYJYCCHYDBDLLSCDDNLKJYHJSYCJLKOHQASDHNHCSGAEHDAASHTCPLCPQYBSDMPJLPCJAQLCDHJJASPRCHNGJNLHLYYQYHWZPNCCG'
+ S1 + 'XCLYYZMDDZYFTQPCZCYYPFHWLLATZDZJDTCCYFKSCCYYAZJPCOLZYJTFNSJANRC YLMMNXJLMYBSSLJGYLDZDPQBZZBLFNDSJWWMZFFJQQQQXXACLBHKDJXDGMMYDJXZLLSYGXGKJRYWZWYCLZMCSJZLDBNDCFCXYHLSCHYCJQPFQAGMNYXPFRKSSBJLYXY'
+ S1 + 'KCZFHHGGQMJDSXYCSTXNQQJPYJBFCJDYQFBNQEJDGYHBSRCCFDYQBGHYJDYZXGR HTKYLNWDZNTSMGKLBCGBPYSZBYDGZSSTJJJGLNSCMHCWWMNZJJLHMHCHSYDPTTXRYCSXBYHCSMXJSXNBWGPXXTAYBGAJCXLYPDCCWQOCWKCCSBNHCPDYZNBCYYTYCKS'
+ S1 + 'CSSXZBHBSCSBZCZPTAFZLQFLYPYBBJGSZMNNDJMTHYSKKBTXHJCEGBSMGYJZCJT MLJSHRZZSCXJQPTZHMKQGXXJCLJPRMYYGKYBSQKKYTQQXFCWCHCWKELCQBSQYJQCCLMTHSYWHMKTLKJLYCHWHEQJHTJHPPQPQSCFYMMCMGBMHGLGSLLYSDLLLJPCHMJ'
+ S1 + 'ADYSKJSNDHDSKQXNXZTCGGYDLMLJXJBSYCDBHJHCFCWZSJHWTKCLJJSHLYCZJXE MPLPDCGLTBZZTLNJCWJGDTCFGLPLLQFJMHWLJCYHZJXHDXJLHXRSWLWZJCBXMHZQXSDZPMGFCSGLSDYMJSHXPJXOMYQKNMYBLRTHBCFTPMGYXLCHLHLZYLXGSSSSCCL'
+ S1 + 'ZBABGYZLAKTGDNCZZBNZCTDQJCJYJGMCTTJDGCSZLMLHBGLKFWNJHDXUHLFMJYC JGXDTWWFRJEJCTZHYDXYKSHWFZCQSHKNQSLDCLEPBHSHXYYFHBBGDFYCNJQWLQHJJCYWJZTEJJDHFBLQXTQKWHDCHQXAGTLXLJXMSLJHDZKZJECXJCJNMBBJCSFYWKB'
+ S1 + 'QHTZHXMJDJSKHXDJQBZZXYMPAGQMCDBXLSKYGHWRTSCGSCBPDBSGZWJHTLKSSSJ GTTLYYTNXJGMJSZSUFWNLSKCTXGXLSMMLJZGHYSDCPQYRSLJPCLPWXSDWEJBJCBCNAYTMGMBAPCLYQBCLZXCBNMSGGFNZJJBZSFQYNDXHPCQKZCZWALSBCCJXJOZGWK'
+ S1 + 'BWLDCZYAKQCQCTMYCFJBSLXCLZJCLXXKSBZQCLHJPHQPLSXSCKSLNHPSFQQYTXJ JZLQLDXZJJZDYYDJHTPDUZDSKJFSLJHYLYBSGXFCFCDKHJBSTLQFSGDSLQWZKXTMHSBGZHJCRGLYJBPMLJSXLCJQQHZMJCZYDJWBMJKLDDPMJEGXYHYLXHLQYQHKYCW'
+ S1 + 'ZCJSLBDHXDGCJBDYAZXDZHZJNHHQBYKNRJJQCZMLLJZKSPLDLCLBBLXKLELJLBJ YCRJXGCNLCQPLZLZNJTZLSYJBXMYZGWQCCJMYHXNATJHYCCXZPCQLBZWWWTWBQCMLBMYNJCCCXBBSNZZLJPLJXYZTZLGCLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZ'
+ S1 + 'ZYHZBTRBLHLCCCJADJLMMMSSHMYBBBSKKBHRSXJJMXSDGNZPELBBRAGGGFCHGMS KLLTSJYYCQLCSKYWYEHYWHBHQYWBAWYKJLCLGJDJCSNCLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCCZHGYJDJQQLZXJYLDLBCYAMCSTYLBDJBYREGKLZDZHLDSZCHZNW'
+ S1 + 'LDQPTNTKHJCGDQKCGPHSHCPDHTWUBKDHTHLXGTYYDASPGYZPCAQDLTBDSDEGYJQ JCFXSSBZXDFYDLAJCLSXYDYEXCYASDWNDCZCLLWJQJJJKDGJCOLBBZPPGLGHTGZCYGEZMYCNQCYCYHBHGXKAMTXYXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKJSB'
+ S1 + 'AJAYDYWTJDAXYSRLTDPSYJFNEJDYZLXLLHHYQJHGJHZYCSHHSGCZYJGLCNXZJJN FSMFFYCYAMDDHDMCSLQZHZYZTLDYMLLHYGBMMCJSSCLPQPDXCDYYKYFCJDDYYGYWCHJRTGCNYQLDKLJCZZGZCCJGDYKSGPZMDLCPHNJAFYZDJCNMWESCSGLBTZCGMSD'
+ S1 + 'MMYLMBMWKXYDTYLDJPYWUXJMMLLHAFDLLAFLBHHHBJTZCJJJTFMBMHYDCHRDDWR QNYSNMZBYYTBJHPBYGTJAHGQTBSTJKBTSLLYXQSXSBLJSBBSGGHFJLWPMZJNLYYWDQSHZXTYYWHMCYHYWDBXBTLMSWYYFSBJCBDXXLHJHFPSXZQHFZMQCZTQCXZXRDK'
+ S1 + 'BKLDBEQQHQMJDOTTXPGBKTLGJXJJJCDHXQDWJLHRFMJGWQHCKRYSWGBTGWGBWHD WDFJXXXJZLPHYYPAYXHXDKKXSAXYXGRKKDJHNNYZQQFNQDMMGNYDXMJGDHCDYCBFFALLZTDLTFKMXQZDNGEQDBDCZJDXBZGSQQDDJCMBKXFFXMKDMCSYCHZCMLJDJYN'
+ S1 + 'GYKBDDDPPLCJLGQAEWJKSYYHDBPLFJTHKJLTCJYHHGTTBLTZZCDLSHQKCJQYSDE EYHKYZYXPYYSDDJKLLPWMCQHQGXHHCRMBHPRSJMKMPCKLGDBQTFZSWTFGGLYPLLJZHGJJGYPZLTCSMCNBTJBHFKDHBYZGKPBBYMTDLSXSBNPDKLEYCJNYCDYKZDDHQG'
+ S1 + 'XPLLNQTJPJYLFDGFXZBLBTLGXSJBSWYYSKSFLXLPPLBBBLBSFXYZSYLFFFSCJDS TGTRYJCYFFCYTSZBJTBCTSBCDHRTJHBYTSDZSCTARLLTKZLGECLLKJLJJAQNBDGGGHFJTZQJSECSHALQFMMGJNLYJBBTMLYCXDCJPLDLPCQDHSYCBZSCKBZMSLJFLHR'
+ S1 + 'CXYJELXBNEBJDSYSYHGCJZBKBYDFZNGENHHHHJHATFWGCSTBGXKLSTYWMTMBYXJ SKXSCDEJRCWXZFHMYMCXLZNDTDHLXDJGGBJSNBRGJHXPDGDJYBZGDLGCSEZGXLBLGYXTWMABCHECMWYJYZLLJJSHLGBDJLSLYGKDZPZXJYYZLPCXSZFGWYYDLYHCLJS'
+ S1 + 'YBFBNBBTHFJAAXWFPXMYFHDDTCXZSPJRSYWZDLYBBJDYQPQJPZYPZJZNJPZJLZD FYSBTTSLMPTZRTDXQSJEHBZYJZDHLJSQMCMBJHBLYJLYCBLYDPDQYSXKTBYTDKDXJYPCNRJMFDJGKLCCJBCTBJDDBBLBLCDQRPPXJCGLZCSHLTOLJNMDDDLNGKAQAKG'
+ S1 + 'LHTXTJECXALZDSPKTLZKJQYFSYGYWPCPQFHQHYTQXZJRSGTGSJCZLBTXCDYYQSS QCSLXLZMACBCQBZYXHBSXLZDLTCDJTYLZJGYHHEZNMSHRPHQQJCHGMFPRXCJGDYCHGHLYRZQLCNGJNZSQDKQJYMSZSWLCFQJQXGBGGXMDJWLMCRNFKKFSYYLJBMQAMM'
+ S1 + 'JYYTPZYLLTXJSJXHCBRYBXQZSJSWWWYGYABBCTJKTGPYSBXBBCMLLXZTBKLGQKQ LSKDFXRDKBFPFTBBMFEEQGKPZSSTLBDPSMYCCTBSHCPTXXZZSMPHFSHMCLMLDJFYQXSDYJDJJZZHQPDSZGLSSJBCKBXYQZJSGPSXJZQZNQTBDKWXJKHHGFLBCSMDLDG'
+ S1 + 'ZZSJCHLQLZPMSMMSXLQQNKNBNDDNHHDHDDJYYYFQGZLGSMJQGXHCQLGPBQXCYZY DRJBGTDJXEESHTMJSBWBLWHLSFFNYPMGXDZDBLZKYCQNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLDXCCLZSHZCXRQJGJYLXZFJPHYMZQQYDFQJJLCZNZJCDGZYG'
+ S1 + 'QHPLTBQPFBCWGDBYGJNXTBFZJGSDCDJSHXEAWZZYLGTTQBWJKGXGHLFKXDJTMSZ SQYNZGGSWQSBHCLSSKMCLZXYSZQQXNCJDCDXMZYSCTLKPHTXHTLBJXJLXSCDQCCBBQJFQZFSLTJBTKQBSXJJLJCHCZDBZJDCZJCCPRNLQCGPFCZLCLCXZDMXMPHGSGZ'
+ S1 + 'QGZDLFNYKLACJLLZLMZJNHYDSCHTHXZLZJBBHQZWWYCRDHLYQQJBEYFSGXTHSRX WJHWFSLMSSGZTDYEYQQWRSLALHMJTQJCMGSZZQJXLWTJPFSYASLCJBTCKWCWMYTCSJJLJCQLWZMALBXYFBPNLSCHTGJWEJJXXGLLJSTGSHJQLZFKCGNNDSZFDEQFHBS'
+ S1 + 'XQBJJZJQLYZKXBYQXBJXSHZSSFGLXMXZXFGHKZSSGGMLCLSARJXHSLLLMZXELGL XDJTBGYZBJKTZHKZJYQCBCTWWQJFJWXHGAQDGYLBXMMYGSZLDYDJMJJRGBJGKGDHGKBLGKBDMBYLXWCXYTTYBKMRJJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ'
+ S1 + 'SGDYFLJBYFDJFRGSFMBYCHQFBWJSYFAGGPHZBYYZFFWODGRLBFTMLBZGYCGXCDJ AGZYYYYHYTYDWEGAZAHXJLZXTHLRMGRJX '
+ S1 + 'DCGHNELJJTGTBWJYBJJBXJJTJTEEKGWSCJPLPSFAZFQQBDLQJJTYYQLYZKDKSQJ YYJZLDQCGJJYZJSUCMRAQCHCEJMBCTYHY '
+ S1 + 'BKMHYCWJDCFHYYXWSHCTXRLJGJSHCCYYYJLTKTSYTMXGTCJTZAXYOCZLYLBSZYW JYTSJYHBYSHFJLYGJXXTMZSYLTXXYPCLX '
+ S1 + 'YJZYZYYBNHMYMDYYLBLHLSYYGGLLSCXLXHDWKQGYSHQYWLJYYHZMSLJLJJCJJYY CBCPCJMYLCJLNJJJLXXJMLZJQLYCMHCFM '
+ S1 + 'MFPQQMFXLMCFQMMMZNFHJGTTHKHCHYDXTMJDYMYYCYJYDYDCWMDYDLFMYCQCWZZ MABTBCMDZGDFYCGCYTTSFWBDTZQSSSTJJ '
+ S1 + 'HJYTSXLYHHHXEXWZNNJZJJJJCCCHYYXBZSCCYJTLLCQSKNJYCYWCQNCCQYYOEWY CZDCJEHYLPGLYLLGKDLDGQBCHJXY '
+ S1;
If hzstr = '' Then
Begin
result := '';
exit
End;
STRLEN := LENGTH (hzstr);
PYSTR1 := '';
j := 0;
For i := 1 to STRLEN Do
Begin
If j = 0 Then j := i;
If MIDSTR (hzstr, j, 1) > chr (128) Then
Begin
n:=StrToInt(padl(ord(hzstr[j])-128) + padl(ord(hzstr[j+1]) - 63));
PYSTR1 := PYSTR1 + PYSTR
;
inc (j)
End
Else PYSTR1 := PYSTR1 + MIDSTR (hzstr, j, 1);
inc (j)
End;
result := UpperCase(PYSTR1);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=topy(edit1.text);
end;
end.
这种做法是将汉字码与首字母对应起来，非常全面，但也有个别问题存在，希望大家指出
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StrUtils, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function padl (Int: Integer) : string;
Var
ss : string;
Begin
ss := Inttostr (Int);
While LENGTH (ss) < 3 Do ss := '0' + ss;
result := ss
End;
Function topy (hzstr: string) : string;
Var
PYSTR,S,S1,PYSTR1: string;
n,j,i,STRLEN : Integer;
Begin
S := DupeString (' ', 1000);
S1 := DupeString (' ', 809);
PYSTR :=
S + 'KSXMMCSDQLYBJJJGCZHDFIAWJHPHCYWGJHHDSKKKTMOCXYPSNGSECCLGGLLYJMS XSSGEQEDYXJYYCLDMJRWBBFTEXCHGBCCSRFCJWFFCWDZPXDDWYLFAJPDFNCYCQXXZXNNXXZQBPYSCZGMZBQBSCYCBXQSBHGXEFMBHHGQCXSTGLYGYMXALELCCXZRCSD'
+ S1 + 'TNJJCCZCLJDTSTBNXTYXSGKWYFLHJQSPXFXXDCZLSHXJBCFYBYXCCZBJYCLWLCZ GTSMDCXPQGJSJFZZLSLHDZBWJNCJYSQYCJRCCWYBTYFDWECSKDCBXHYZCYYXZCFBZMJYXXCDCZTBZJESSSXYRNYGMDTHJXSJJCCSBXRYTSYFBJZGCLCCZBSCYZQSCJH'
+ S1 + 'ZQYDSLBBJLLMQXLYDZSJJTCBLCGQCCEJBHCJCJFXJELBGXXMYJJQFZASYJNCYDK JCJSZCBATCCLAJQMWNQNCLLKBDBZZSYHJCLTWLCCRSHLLZNCYLNZXDDCCEEJYSSQGHSDBGHWNLSHTPJYMDYMCJGJMZGXYHYMSMJKLFXMTGHPFMQJSMTGJQDGYALCMZC'
+ S1 + 'SDJLXDFFJCZFMZFFKGPKHRCJQCJDWJLFQDMLZBJJSCGCKDEJCJDLZYCKCCCLFCQ CZGBCLDJJYHDDWGSJDACCCTJLPSKGHZZLJLGCGJJTJJJZCZMLZYJKLZYZMLJKGWXMKJLKJGMCLYKJQLBCKMDXMYXWSLLPSJJCQXYJFJDJDMXXLLCRQJJBMBGGYPJTGE'
+ S1 + 'GDJGNJYJKHQFQCKHYGHDGLLSDJJXAYGXNCSXWWXCCLGXXJAQSCSJKJEXSWZAYDZ LAQYSMTSTZFCYLDJAGYLCLLYYYGLQQKLDHCCCADSGBRLLJSJWRCGQCDHMMSJCYOHXCQGBEHWNCDHGJLGMQWJYCSTWASJPMMRDSZCCYCPCGCHDKGTPBFYHHDWZBTXHQE'
+ S1 + 'EDRSXKGTAXGLTHYDNXPHYLDMZHXLBLBMLSFHSYGGBHYJTDWLQCZEDQDQMGTKLLS ZWJQEQAJDYTLXANZDECQTWWDGQQDWCBCHEQZLXQGZGLNDJCGTADYZZCWYZYMHYHHJCWCXHDNLYSCJYCBCYWYPBGQGTYHCSYGXMCHRGJBWQZLWJSCSGNQBALSZMTJCDG'
+ S1 + 'TCAXLBHHGOXZCPDMHGTGSJCHMRCCJHXHFQCCDXEZBCHCCCDYKXQHLSHYXNSYYDD DNHXCYAYGYFDHDDXPYZNDHTHHYDPCJJCXMTLHBYNYHMHZLLHNMYLLLMDCPPXMXDKYCYDLTACHGZNACLCCLYLCSHZJEZLNRLHYNTKYJPYCHEGTTGQRGTGYHHLGCWYJKP'
+ S1 + 'YYYTTTCLHYLLYTTPLKJYQQZDQXSNMJZXYQFKTFBJDJJCJBTJZGTJYFLQGXBLZFH ZADPMJHLCCYHDZFGYDGCYXSBHDKDHAXXBFBYYAXCQBDJYJJDLJJZLHBJYDEJSQWJLCKCDTCCBKDSZDQJBKKNJGYEGLFYKASNTCHBLGZBYMJNAGZYHEYBCMCTPFZJJHG'
+ S1 + 'CJPLJHDWXXJKYYKSSMWCDQZLPBZDCWZXZAGYKWXLHLCPBCLLOJMMTSLBCDZKDCZ JGQJDCYTZQWZQCSBPKDFQDCDSDDTDMFHTDYZJAQAKTPDJYBDLJHDRQXLXAYDRJLKLYTWHLLRLLCXYLBWSZYMZZHKHXKSMDSYGJFZBSQLCXXNJWMCQOGQMMCZGGBTTBH'
+ S1 + 'YJBEDPJLDYHKCBHFDXBAWHWAJLDYJSFHBLCDQJNCXFJHDFJHWZPHZYFCJZYNXFF WDBZZNYTXYEMBSEHXFZMBFLZRPYMCJRDJGXHJGJJNZZXHGJHYMLPEYYSJGQSHDSCXMFMKCCTXNYBNZHZPTXWYWAYYSLJSQXZDLAELMCBJCLXSQHFWNTFFTNQJJJDXHG'
+ S1 + 'LYCCFLAHYYJLDXHHDYNCJTYWDRMDNQHWQCMFJDPZHMAYXJWZQSXDLMRSPWWCHJB XTGCYYRRLMPAMCQZYJRMXSNTBLNBPYKXMYKYNGJTCHLZHHANMPGWJDZMXXMLLHGDZXYHXKRYCJMFFJYHJFSSQLQXNDYCANNMDCJCYPRNEYTYCYMBSXNDLYLYLJNLQYS'
+ S1 + 'HHMLLYCLJMSSTYNSMCQYNZLHBNNYLRKJRYYJZZHSYTSCJGXZDPHMKCZYQHZJNBH QSNJNTYBKNJQHSNPWXKHJYYBQCBFLDPZBKJSXSDDJEESCMLXXKWLMWWWYDKZGGTGGXBJTDSZXNXUMLPTFCLCXJJLJSXJWXLEDHHRWASCYYBYAWJECWQQJZZYJGXPLTJ'
+ S1 + 'FTPAKQPTLCPCBTXBHBLEFDLEEGQYMSAWHMLJDWYGLYJEXBQFNLYXRDSCTGGXYWL KXQCTLHJLMKKCGYBLLLDZYDHZWBJCJDYZZHYDFQYTYZDEZKLYMHJHTMYZLJNYWZCSKQQTDXWCDRJALWKBDQYNCSRSZJJKCDCDTLCCACQQCZDDXYPLXCBQJYLZLLJDZJ'
+ S1 + 'GYJYJSYXNYYYNXJJKGDAZWRDLJYYYRJLGLLHXJCYKYNQCCLDDNYYYKYHHJCLKPP QZZYJSQPFZDNFPZHDDMBMYYPQJRSSQZSQDGPZJWDQJDHZXWKBPDGPTMJTHZQBGCMBJCZHBBZMQCFMBCMCJXLJBGJTZGMQDYBJZYCTYZTZXTGKMYBBCLCSSQYMSCXFJE'
+ S1 + 'GLSSZBQJJLYDLYCTSQMCWFGKKBQLLLJYXTYLTSDPHNHFJNZYESESDHWDJBSJTFD CZYJSXJDZJJPBSDJGFBKJBXDGJHMGWJJLHHYYYYYWYYCDYMCBTJZWDLFWXWCZJCZCUJZCZLXJJSJBFWBXZBCDCBCCYHMLRBJLRDGRGQSLFYMWWJXJWCSQCTDQHXKXHJ'
+ S1 + 'YBMPJBNTGCCDDYFXBYXCBHXBSXTYMKSXLGKMZXTDHGQJSHQHCYXGLCSQYPDHXMY JBYSTJZLHQTBQXMYHCWLLCYLNEWCDCMLGGQKTLXKGNDGZWJJLXHJDTNCHXERZJYDNYDCQCBHZSBXWGWBXHMYHDYCMKKAQYNZSYQGYSQYSHJGJCNXKZYCXSBKXHYYLCT'
+ S1 + 'YCTWMGCPMGCCCCCMZTASGQZJLOSJYLSTMQSQCZLJQQYPLCYCZTCQQPBQJCLPKHC XYXXCTDDSJCJFFLLXMLWCJCXTSPYXNDTJSJWHQQJCKYYLSJHAYKXCYYDMAMDJMLMCZNCYBZKKYFLMCHCLHXRCJJGSLNMTJGGYGCDDCJZKZCGJYYHZHHQHHESTMDJYYY'
+ S1 + 'QCFRZZDWKGSCCGWDRCQJYAXQKDYKBGWGYQDZYWNPFBAZYBZNBTZZYHNSCPJMQCJ ZPNQCBDJKQQHNGCCXCHBDGDDNZGJDNLZLDJLJYXYSBGTCSKMNJBJSLJCFJJCCFZSYJWBZYZLSSBWWQSMMBDLJYSCTBRCWQCSLQGDHQSQLYZLGNHSDCBTCKPJMGMSPNJ'
+ S1 + 'KJJYNHCWCNSSZXHBYHYZJKJDLLCJTHGCXJJCBYWDWZGGQRHCSSNBEYDZNLQXJME CSDJBLTHNWHWCSZENQZWNKRSCSJCCGFDCSLCCGLLZGCZCTHNJGYAZCMCKCMTCCKBJYGQJBLDXRGQYXCNHGDNLCHJJCDCBCJSBFZTBQDHJTJWJYNLZYBCJDSJJKDXJAJ'
+ S1 + 'YEMMJTCLJYNYYNHJBNGZJGMJXLTBSLLRTYLCLCNXJLLHYLLQQQLJYMCYCXNLMMC CLNLDWDJLLGGJXKYGBPDKFMHCCGXJCZDYBXDNDDYKJJTXDYXMAADZSLOXYJSJZDLBLXXXQQJZUBYLWSJJYJTDYQQZZZZJLZCDZCHPLMQBLFFJZYSJEZFPFZKSYJJHXT'
+ S1 + 'TDXCYSMMTCWBBJSHFGXFQHYZFSJYBXPZLHMBXHZSFDODABALKTSHXKKJJZTHGXH JXKZXSZZHHWTZZZSNXDZYAWLCWXFGYYHXMYYDWQMNJYCYSPJKGWCQHYLJMZXHMCNZHHXCLTJPLXYJHDYYLTTXFSZHYSXSJBJYAYRMLCKDUYHLRLLLSTYZYYHSCSZCXH'
+ S1 + 'YQFPBLFUNTLJMHTQYZWCLLLPSTRBDDLGJBCCRQWWXFZETDMCYGGTJSWJMSYBDQC DHXCCSWJJMBAFYFNHYDXYEZYZSDLSNXCXGBMXYYSNBDCLHBFZDCYFSSSSNYDZDGBAFBDBCSZBFGCYJLMLRZSYQQZYXZLCKBRBRBZCYCJZEEYFGZLYYSFRTKQSXDCMZU'
+ S1 + 'YJLZXSCBTKJBBRXLLFQWJGSQYLPZDJCZABDHZRBJHWNJTJXLHCFSQDQYJHZCWJL BXFTZLLRLQBLCQQCCDFBBHCZLYYGGDGWCFCCQYYYJYRQZFLSZFCQNWLHJCJJCCKEBZZBPDCCMHJGXDGDZQMFGPSYSDFHWJZHYPYYJYHWPBYGXRYLYBHKJKSFTJMMHHT'
+ S1 + 'YYCXYZPDJYCYWMDJJRHLQXSTWSCPJYCBNMGJTYSYZMSJYJHGQMYRSZWTRTZSSKX GQGSPTGCDNJGCLMCGZTQYDJZDLSDGLHYQGGGQHSCPCJHHGNYGKGGMDCLLCCCXQSTGZSLLLMLCSKBDJZZDLMYTPZSQJCJYXEXYZCPSHKZSXCDFMWNLLJJRFJLYSDCCMJ'
+ S1 + 'JDHJNDNRCCFQRHQGLLGXSCSJDJJCDQJLNYHSZXCGJZYPFHDJSBCCZGJJJSJQDYB SSLYCTMQTBHJQMNYGJYNQYQMYGCJKPDCGMYZGQLLSLLCCMHOLZGDYLFZSLJCQZLYLZCJESGNYLLJXGJQLYJYYYRNBCLJSSWCGQCJYLLCLDJELLZLLBNYLGHHXCCQAYJ'
+ S1 + 'KXHKLKSACCQDKKCGYYXYWTJOHTHXFXCCUHCYEYCHBBJQCSCSZSSLZYLGEZMMYSX JQQSJYBYCHDZYWCTJSYDJKCDDJLBDJJZKYSHQXXHQJKHDYXGMAJPCUUPLJSMTXERXJQDUPJDBSMSSTDTSDMLTRZSZMLDJQRNBSQXQYDYYCBDSLMFGBZMDQCHFDTMQCQ'
+ S1 + 'WWTJJZQJJRJHFBCZFJHNXXYWDYHHNMFCPBZPZZLZFHZDLLCFTSKJGDJYHBZKAGH PCCSCSJSSJFJGDYPSHZCWHCSEXFQZYWKUATMLYMQPXXSKJJPXZGMHQYJSPCJLQWGMDBDHYCLHLGLCFYTLJCJNCPJLKPHJNTXTETLSSLSDYHXSCZKWTDWJSLHTJDJGGH'
+ S1 + 'DPHCQFCLJLZPTXNLMCLGQYNBHYLQCZYBBYMRFYHJDSQPXYRHJNQTFGDWECHYGMM YYHSMZGNGCELQQMTCWCHBXJJFYYSJZTYBHSTSYJDNJQSLHYNBYQHLCDCHZMYLFLWXYPJGSYLYMZCTDWGSZSLMMZWWQZSAYYSSSAPCWCMGHHQDZXJGSJHYGLCXYXHBBC'
+ S1 + 'JKLSMALHYCFYGMQYJYCXJLLJGCZGQJCCTOTYXMTSHLWCGBQKPZCXHCYCLCTJCYH XSGCKXZPJJBDHJWPJGSQXXSDMRSZCYZWSXKYTSHBCSPLWSSCJHALCHHYLHFGHXJSXALNYLMDHDXYCXLMCYHCLDYHZMDYSPJTQZNGJFSJHCTSDSZLMSSMNYYMJQJCWCY'
+ S1 + 'YDCHJJJAWBGQYBKFCMJDLCLLYYLSZJDWHXPCBCMLJSCGBHXLQRLCXYSDHXZLLDF HLSLYMJLJYLYJCDNJLFSYJFNLLCQYQFJYYLCLYLMSHDJCYHZLLNWLQXYGYYGXXHHZYXCZQZBNWPYPKPKFMLGXGGBDXZZKZFBXXLCFTYTQHHZJXHQHXXXYWZYSWDXZKX'
+ S1 + 'HZPAGCHCULFJCPJZTHLSXCRHXSHHKJXXZJDCJULYJLKHJXCMHCFACFPQRXQXYJY GPGWSCSUNGWCHKZXHFLXJBYZHTQXNNCYJJMWYJQRHFQSYLJSGWNSLGTCEBHXXWYHHXYNSQYMLJWGYQBBCAJLBCYTJZHYZWLHORJKCZJXXYXCHCYQYXQJDDSJBSYLDSF'
+ S1 + 'XLMDYJMJUCYXLLCXQCLHKLWYXZHDNBRHXJCDSHLBRLMRLLAXHLLLLJLXXXLYCRY LCCGJCMTLKLLYZZPCWHJYZECKZDQYQPCJCYZBBBCYDCNJTRMFGYGBSCGMDQQZMKQLPGTBQCJFKJCXBLJMSWLDTQXLDLPPBSCWRCBJCZGGBHYYFZKZMPJCSTLPNYYXDB'
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + ' '
+ S1 + 'KXHHZJXSSTDMSXBZYSHJPFXBQBYLJQKYZZZWLCZFFWYCTBGJBYYSBMSMYDYSHQY ZCGMJMCAGCBBBHBLXTXQXSDJGJDHHXXNB '
+ S1 + 'HNMLNGSLTSMRNEXQJMXLSQGLBHDCGYQYCHWFJYMBYJMJJDPQYAPFXCGJSCRSSTJ LBZJJJLGXZYXYXSQKXBXXGCXPLDYWECDW '
+ S1 + 'WCJMBTXCHQYXXFXLLJSFWDBZCMYLMSWTCBCECBLGDBQZQFJDJHYMCXTXDRMJWRH XCJZCLQDYHLSRSYWWZJYMTLLLTCCJZBSC '
+ S1 + 'KZCYJJSQALMYHWWDXZXQDLLJSGJFJLJHJAZDJGTHHSSTCYJFBSZLXJXRWGLDLZR LZQTGSLLLLLYMXQGDZHBBHLSHQBPFDFMW '
+ S1 + 'HYBJCCLDMZPBZLCYQXLDOCLWDWYYTHCQSCCRSSLFGFPDQMBJSLMTFGJBTMTJWDN MMCTGBDCLFYHSYMJYLDHDZJCCTLCLDLJC '
+ S1 + 'PDDJDSDNBGZXXCJQXCBZXZBZFJSNCTJWHSCMJXTMXSPDSYBZGMLJDACBMDKYCSZ CYFDCTGWHKYJXGYCHNCZSCYZSSDLLQFLQ '
+ S1 + 'LLXFDYHXGGNYWYLLSDBBBJCYJZMLHLJXYYYTDLLLBUBFBQBZMBCLMJPGEHBCQAP HHHZCHXYHJAXHBPHJGPQQZGJJZCUDDQYBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB'
+ S1 + 'ZHHBWYFFQDLZLJXJPALXCDAGLGMQYMXPFMMSHPFMXSYZASHDZKJSMMZZSCNZCBM LTDDNMSZYMZMMQHHCCJEMXXKSTGWLSQLZBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB'
+ S1 + 'LLSJPHLDZYHMXXHGZCJMHXTXFWGMWJDCHMFZZYDKMSCLCMGHSXPSLCJYXMGJYAH JZMCSCXYHMMPMLGXMHLMLGMLTKZQJSZJSBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
+ S1 + 'HYZJZYBDDZWDKGDJLFMEKZJBEZSWJMJYKTEMZNPLBLBPYKKQZGEQLGAKXPLHQWQ CKKCLHYXXBLTCCYSKGCHLCNSZKYDKCQCQCCCCCCACCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
+ S1 + 'LJBMJHQLYWQLGRYDTYKWSADXDDNTQDFQQMGSELSTGPKTQQLAYDLPYTCQAPLLKCC YLPQQCZCLJSLZJXDDBSADLJXZQJYZAHZLCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCDDDDDDADDDDDDDDDD'
+ S1 + 'JCYHDYPPYPEAKJYRPCBYMXKLLZLLFQPYLLLMSGLCYRYTMXYCBDCUYSYZTFMSMCL YWZGXZGGLJSGKDTGGZLLDZBCHYYZHZYWXDDDDCDCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD'
+ S1 + 'SZYMSDBZYJGTSMTFXQYJSCDGSLNMDLYSZLRXTRZCYXNQFHYZJZYKBPNLYPBLNZZ JHTSHGYZZRDZNBGXSKGJTSYLLGZZBJZKLDCDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDCDDDDDDDCCDDDDDDDDDEEEEEEEEEEEEEEEEEEEEE'
+ S1 + 'PBSYLUYQBJFBNJCZXCDJJYXZGGRSRJKCMTJJSJYWQKYHQJRPJBTZLSNSHRNYPJT WBHKLBSJLCWYSJYLYBBWKJDWGCYXCKDZXEFFFFFFFFFFBFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFBFFFFBFFFFFFBFFFFBFFFFFFFFFFFFFBFFFFFFBFBFFFFB'
+ S1 + 'SGZWWYQQYTCTDJLXWKCKKCCCLZCQQDZLQCSFQCHQHSFMKZLLBBSHJDYSJQPLZCD CWJKJJPCMDWJSQYRYHCBYDSDZNGQMBCBLFFFFFFFFFFFFFFFFFFFBFFFFFFFFBFFFGGGGGGGGAGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG'
+ S1 + 'NFFGFSMSQMLGQCYYBKJSRJHZLDCFTLLJGJHDXZCSZZTCGGKXOXBLBBBGCDYJDCZ SZLLJFZGQJCCZBXBSXPSHSCCLWDQJJXMFGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGAGGGGGGGGGGGGGGGGGGGAGGGGGGH'
+ S1 + 'CFZHQQMQGSXHTYCNZNQXGPDHCSZCLJBHBDCYCCPBYTZSGYHCKPZJJCNSCDSLLXB MSDLDFJMKDJSLXLSZQPQPGJLLYDSKGQLSGHHHHHHHHHHHHHHHHHHGHDHHGHBHHHHHHHHHHGAHHGGHHHGAHAHHHHHHHHGHHHHHGHHHHHGHHHHGHHHHHHHHHHHHHHHHHH'
+ S1 + 'LKYYHJTTMCYQTZZBSZQZTLLJTYYLLQLLQYZJLBDZLSLYYZXFSZSNHNCZQZBBWCJ RBCYZMTHGJMZCSHTCLZBLEQHXFLYLJQBZHHGHHHHHHHHGHGHHHHFHHHHHFHHHHHHHHHHHHHHHHHHHHHHGHHHHHHHHHHHHHHHHHHHHHGHHHHGGHGHHHHHHHHJJJJJJJJ'
+ S1 + 'GHSTBMZJLXFNBGXJZTSFJMSSNCLKBHSJHTNLZDNDLSJGZJYJCZXDGOGWRWQNZTN FJSCBZMHZJFYRDJBCJZBFZQCHZXFXSBSQJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJGJJJJJGJGJJJJJJJJJJJJJJJJGJCJJJJJJJJJJJJJJJJJJJ'
+ S1 + 'LZCGYFTJDCSZXQJBQMSZKJRHXJZCGBJKHCGGTJKJQALXBXFGDRDYLXJGDTSJXGJ JJCMZLCQSBTSHQBXTTXHXFTRDKFJHZXJFJJJJCJJJJJJJJJJJJJJJJJJJJJJJAJJJJJJJJJGJHJCJJJJJJHCJJJJJJJJJCJJJJJJJJGJJGJJJJJJJJJJJJFJJJJJJJJ'
+ S1 + 'JXRZCDLLLCQCQZQWQXSWTWGWBCCGCGLQZBCLMQQCZGZXZXLJFRHYCFLXYSQXXJK XRMJDCDHMYXBSQBHGCMWFWTGMXLZBGYTGJJJJJJJJJJJJJJJJGJJJJJJJJJCJJJJJJJJJJJJJJJJGJJJGJJJJJJJJJJJJJJJJJJJGJJJJJJJJJJJJJJJJJJJJJJJJJJ'
+ S1 + 'ZWCCDXYZXSWGSYJYZNBGHCJCQSWXCJRTFYCGRHZTXSZCTHCBFCLSYXCLJQMZLMP LXCJSCLBYSJQHXJSXRXSJCZZSSLJFLCZJDJCJJKGKGKJJKKKCKKKKKKKGGGHKKKKKHKKKKKKGGHKKKKKKKKKHKKKKKKKKGKKGKKKKKKKKKKKKKKKKJKKKKKKKKKKKKG'
+ S1 + 'RCRXHHZXQYDMGJSJJHQCJHBCYNSSSRJBQLFXQPLMLXZKYXLJCJLCYCRJZZLLLLL HRZZDXYTWXCXFFQBPXZGYGZTCQWYLTLSGKKHKHHKGGKKLLLJLLLLLLLLLLLLLLLLLLLLJLLHLLLLLLLLLLLLLLLLLLLLLLLJLLLLLCLLLLLCLLLLLLCLLLLLLLLLLLL'
+ S1 + 'RMGZJMMGKJFSGZYAFSMLBFCWBJCLJMZLPJJLMDXYYFBYGQYGXZYRQQHXXYKQYGY FSFSLNQGCFHCCFXBLBLZQXXXKHHSSHJDSLLLLDLLLLLLLLLLLCLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLCLLLLLLLLLLLL'
+ S1 + 'CXCZWHHHPLHALPQAHXDUGGGDNEDTPCCJJCLJZLJLHYHYQYDHZUZCZYTTEYTSHSL JBDGWXPCDUTJCKLLWKLLCSSTKNTDNQJTTLLLLLLLJLLHLLLLLLLLLLLLLLLLLLLLLLLLLLLBLLLLLLLLLKLLLLLLLGGLLLLLLLLLLLJLMMMMMMMMMMMMMMMMMMMMMMM'
+ S1 + 'LZSSZYQKCGBHCRRYCHBPFYRWQBBXKDBBBCTFFSNPCFXMQKCYPCXEHZGCTCMXXMX NWWXJYHLCTMCSJTJCTCTCNDNPGLCCJLSBMHHMMMMMMMMMLMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMBMBMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM'
+ S1 + 'LPGJCDNNDSCJDBGWMNDCLODANSYZRDWJJDBCQWSTSZYLJPXLOCBGPCJFCLHYLXC CNLCDXTFZJHCYXSFZDKNJCJGLTQCBXEWZMMMMMMMMMMMMMMMMMMMMMMMMMMMBMMMMMMNNMNNNNNANNNNNNNNNNNCNNNNNNNNNNNNNNNNNDNNNNNNNDNNNNNNNNNCNNN'
+ S1 + 'XBXKLYLHZLQZLLZQWGLGJJGCBNGJDJXTXCQYXJJXSJRSTPHGHTXDFPTFCLLXHFK FZFLYLUBNJHJBMDDBCYCLDXTDDQLYJJHQNNNCCNNNNLNNNNNNNNNNNEOOOOOOOPPPMBPBBPPBBPBPPFPPPPLBPPPPBBBBPPPPFPPPPPFPPBPPBPPPPPPFFPHPPPPPPP'
+ S1 + 'LLCSJPYYCJDTJPYCMGXHZHSZCWQWRFXHJJACMRHQYYQPDDJYBYNNBBXYXHZDDNH MRGBWBZZJCUXGLRCCWHZLWDGCGGJYCBMZPBPPPPPPPPPPPPBPPBBBBPPPPPPPBPPPBPBPPPBPPPPPPFBBBBPPPPPBBJQQCQQQQQQJJAQQQQJQGQJQQQQQJQQQQQGLQQ'
+ S1 + 'QZHFGDCJEAQCPJCSZDCYDWLDFRYBYSCCWBXGZMZJTQSCFMXJCJYCHCJWSNSWMJN MTNMCDQDCLLWNKPZGGLCCZMLBQJQDJJQCQHQQQQQQQQQGQJAJQQJQJHQQQCKQQQJCQQQQQQJJQQQQQQQQJCQQQQQQQQQQQQQJQQQQQQQQQKQQQQQQQQQQQQCGJQQJQJ'
+ S1 + 'GHJAWBZJLTTDHHCCHFLSJYSCGCZTJBYMBPDJKXWJYBLXNCWCSBMAYHKJMZZJRXS AQJFLJFHHHYTZJMHSGZJWBWJDYJQQHSLZQJQCQJQQCQQQQQQQKGQJQQQQQQRRDRRRNRRRRRRRRRRRRLRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNRRJRDRRRRSSSSSSSSS'
+ S1 + 'YYMYSZGRXUEYHYSCSYZNLQHLJXCSTLHDQJPCYCYPPNXFYRCMSMSLXGLGCTLXYGZ GZTCPUSLLDTMTCALCPFJCJWTCYYJBLBZLSSSSSSSSSSSSSCSSSCSMSSSSSSCSSSSSSSSDSSSSSSSSSSSCCSQSSDDSSSSCSSCGSCNSSDSSSSSSJSSSSCPSSSSLQSSSSM'
+ S1 + 'JMYLJBGHDCSSDHBCCSXHAMJZBJMCNHJYJYGCHSKQMCZLWJQSMOCDJLYJCHJMYBY LRETFJFRFKSYXFDWDSXXLWSJSLYXSNXWYSCSQKSSSSSSSSSDJSSSSSSSSSSSSSQSSSSSSSSSSSKSSSCJFSSSSSSSSSSSDSSSSSSSSSSCSSSSSSSSSSSSSSSSSSSSSSS'
+ S1 + 'XHAHHJCXLMLJCSQLKYDTTZSKFDXGSJHSXYBDPWNCMPCZCZENYCHQFJXKBDMLJQQ UQSLYXXYLLJDZBLMHBCTTQQWLHOGWBLSCSSSSCSSSQSSSSSSSSSSSSSSLSSSSSCSSSSSSCSSSSSSRSSSSSSSSSSSSSSSSSQSSSSSSDSRSSSSSSSSSSSSSSSSSSDTTCD'
+ S1 + 'ALXQLTERRJLSTMWPYXJJXQSJFBNYXYJLLYQYLTHYLYMHGLJDMLLHFZWKHLJLHLJ KLJSTLQXYLMBSXCHXCFXLHHHJBYZZKBSSTTTTTTCSTTTTTTNTTHDSTDTTTTTTTTTSTTTTTTTCTCCDTCTTTTTTDTTTTTTTTTDTCDDTBTTTTTTTTCTTTTTDTTTDTTTTTJ'
+ S1 + 'DQCUJZSYGZXBEBCQWYYJQTQWJHQQZMWFFHFRBNDPCJLFZGPBXDBBZTGYGCHBFLY XLXPJSYWMNGQLXJQJTCBHXSFXLBXYJDDHDTTTTTTTDCTTTTTTTDTTTDTSTTTTTTCTCTCTQTTTTTTTTTCTTTDDTTTTTWGJGGWMWWWWWWKWWKWWWHWWWMWHWWKWWWWWWW'
+ S1 + 'SJQYJSLLDTKHHBFWDYSQRNTLDEBDWCMULJTMXMJLXYNWFYMWRXHYSCTZZCYMLDQ LGAQYJBSCQWLBRJWXHSBHYDNHHGMYWYTZWWWHHGWWWWWWWWWWEWWWWMWWWWLWWWWWWWWWWWWWWWWWWWWGWWGWOWWWWWWWWMWWWTMWWWWWWWWWWWWMWWWCXSXXXXXXTS'
+ S1 + 'CSQTSDLWDCJPYCLQYJWXMZZMGLCLMXCMZSQTZPJQBLGXJZBLJJXCJNXMCXSCCDL CJJDJCXSKYCLZXZZXMXQRJHZJBHFLJLMLXXXXXXXXXXXXXXXXXCXXJXHXXHXXHJXXXXSJHHXXXXJXXXXXDXXXJXXXXKXXXWXXXRXXXXXXXXXXXXHXXXXXQXQXAXXXXX'
+ S1 + 'QNLDXCLLLPYPNGYSXCQHCMJSZHNFZMEKMXKYQLXSDLXHWDCWDZGYYFFJZDYZJQX RZJCHRTLBYZBSJHXZTPBDFGZZRYTJGXCQXXJXCXXXSXHWXJXXCXXXXXXXXXXXXXXXXXXXSXXXXXXXXXGHCNXXSKXXXXXXXXXXXXXXTXQNXSXXHXXXXXCXCXXXHXXXXX'
+ S1 + 'YMBUCCKRJJBJERZGYKXSKNSJKLJSGZLJYBZSQLBCKTYLCCCLFFGADZQJGKQTSFC XDKDXXYFTTYHPDWTGHRYNJCBSNYJHKLLSSXHXXXHJXXXXXJXXXSXXXXXXYJYYXYYYYAYYYEEYYYYYYYYXDYYYYYTYYYWYYYYYYYYYPYYYYYYYYYYYYYXYYAYYYYYYJY'
+ S1 + 'LNDXXWBCJSBBFJJJCJCZBBXXBRMLAYGCSNCCDDTBLFZTDWSBXBCLLXSLZDJCSJY LYXBFFBHJJJGBYGJPMMMMSSCZJMTLYZJXYYYYYTJYLYYYSXYSYYXYYXYYYSYYYJYYYYYYSCYYNYYYYYYJYJXSYYYEGYYYYSYYYYYYXYYYYYYYYYSYYYYYLYJYYYYYYY'
+ S1 + 'SWXTYLEDQPJMYGQZJGDBLQJWJQLLSDGYTQJCZCJDDHQGSGJHQXNJLDBXSGZHCWY LJWYWYDFKQJJFXDHCTXJDRXYSQTJXYEBYYYYYYYYYYYYYYYYYYGYYYYYYYYYYYYCYTYYYYYYYYYYYYLYWYYYYYYYYYXYYYYYTSDYTYYYYYYYYYYYHYYXYXOYYWYYYYY'
+ S1 + 'YSSJXJNNCYZXFXCSYSZHYYSCHSHXZZZGZCGFJDLDYNPZGYJYZDDQZPBXCBDZTZC ZYXXYHGSCXSHCGGQHJHGXWSCDMMEHYXGCYYYYSYYYYYYYYHYWYYYYYYYYYYYDHTYYYRYYYYYJYYYWYYYYZZDZZZZZZZZCZZZZZZZZZZZCZZZCZZSZYZZZZCZCZZCZYG'
+ S1 + 'BDCLZKKWJZRCLEKXTDBCYKQQSAYXCJXWWGSBHJSZSDHCSJKJCXSWXFCTYNYDBZC CZJQTZWJQDZCZQZLJCHLNBHPYDXPDXSHGZGZCZZZZZZZCZZQZZDNCZZNCZZZTZZCZZZZZZZZZZZZZCZZQZHZDZZZZSZSZZZZDZYZZZZJZZZZZCCZSZTZZZZZZZZZZZZ'
+ S1 + 'EZDXFPTJQTZZAHYAGNCFCYYHXGNQMYWXTCSPDHHGHMSMXQCXSSBCQSJQXHTYYZX BCLMMSZMJZJLLCOGCSAAJZCHJMCHHCXZSZZZZZQQQZZSZSZZZZZSZZZZZZZZZZZZZDZZZSZZZZZZZCCDZCZZZZCZCZYZZZZCYZZZZZZZZZZZSZCZDZCZZZZZCZCZZZZ'
+ S1 + 'XZDZNLEYJJZJBHQMJZSQTZPSXZTDSXJJLNYAZHHYYSRNQDTHCHAYJYJHDZJZLSW CLTBZYECWCYCRYLCXNHZYDZYDTRXXBCSXZZCZZZYZZZSZZZPZZZZZCZDZZCZZZZZZZZZZZZZCZZZCZZZZZZZZQZZZZZZLCJZCCJJCCJZZQZZZZCZZZZZZZZZZZ '
+ S1 + 'QHXJHHHJXLGDLKFDBSXFZZYYCHTYYJBHECJKGJFXBZJFXBWHDZFYAPNPGDYMSHK HALNBYJTMXYJCTHJBZYFCGTYHWPHFTGZZCJWGNSPGCENEGYPBTWXZDXYKYGTDJNMJQMBSGZSCYJSYYFPGGBZGYCYWJKGALJSWKBJQHYJWDDZLSGMRYBYWWCCGZNKYDG'
+ S1 + 'EZSBZEGPBMDSKBTYCMHBLLHGPZGXZJGZJYXZSBBQSCZZLZCCSTPGXMJSFTCCZJZ DJMCYBZLFCJSAZFGSZLYBCWZZBBZDZYPDTTNGJEYEKZYDCJNMCYLQLYPYQBQRPZSLWBDGKJFYXJWCLTBNCXJJJJCXDTQSQZYCDXXHGCKBPHFFSSPYBGMXJBBYGLBHLS'
+ S1 + 'WYJGXZBDSYUXLGZYBZFBXTXCCXTZLSQQXCGQCCCDDXZJJCCGCTDGSCXDSYJJJCC LDCZTCCGCQJZTEZKKGCFYBJCYCLMKCQZJSMZMPJHSOJNGHDZCDKLGJHSGQZHXQGKEZZWYMCSCJNYETXADZPMDSSMZJJQJYZCDJFWQJBDZBJGDNZCBWHGXHQKMWFBPBQ'
+ S1 + 'DBJNYJCDCQSXCBZJCDJCCCJNQBCMSJQMJJRCJJNJNLLCWJCQJCZPZCDCYCZCGSB ZNCTQCDDJLCBCLLTDSXKJZQDLZLZNTJXCDTJJZKQHYLCGCFPTYJYYZPSJLFCHMQSHGMMXSXJJKDCMBBQBEFSJWHWWGCKPYLQBGLDLCCTNMAEDDKSJNGKCSGXLHZAYBD'
+ S1 + 'BCJLTQJLDGDBBJQDCJWTNZLZCDWLLXWLRSNTQJCCXKJLDFTDGLRLAJJKUYMKQLL DZYTDYYCGGJYXDHFRSKSTCDENQMRKQZHHBTSDKDYLHGYMYLCXPYCJNDQJWXQXFYYFJLEJBZRWCCQHQCSBZKYMGPLBMCRQCFLNYMYQMSQTRBCJTHZTQFRXCHXMCJCJLX'
+ S1 + 'GKCLDAZFKYPBGGPZFEBZZDKDQSPEGJJGHKCZZZSLYSYHQZWFQZNLZZLZHWCGKYP QGNPGBLPLERJYKCCCEYHSBZFWBNYWKGZHQGJMSHZKBSWXEMDLCKFSYDSGLYCJJSSJNQBJCTYHBFTDCYJDGWYGHQFRXWCKQKXEBPDJPXJQSRMEBWGJLBJSLYYSMDXLCL'
+ S1 + 'YLJCZWHXZJZBLFFLGSKHYJZEYJHLPLLLLDZLWCZBLCXBBUBCBBNNZCYRFSRCGYT QZGTZDHDEZCCCCWTTKHDYNYJLXDJYQDJSQKXLHTJRJJMBJHXHWYWCBHTRXXGLHJHFBMGYKLDYXZPPLGGPMTCBBAJJZYLJTYANJGBJFLQGDZYQCAXBKCLECJSZNSLYZH'
+ S1 + 'YWLSHGLBCJBYZJYCTDYNDSACTSZYYEGDHNYCXTDCYSHGZDCCSDDLCCRQSYSELSM HZTEBBCYYLLTQSYFWFHBXSYCHBJBWKGSKLXLZCGHBXZHZNYTDSBCJKDLZAYFFYDLABBGQSZKGGLDNDNYSKJSHDLXXBCGHXYGGDJMMZNGMMCCGEZSZXSJBZNMLZDTHCQ'
+ S1 + 'GHJHGXGFLYCDLFWLJGBXJAQQZJPLNCBXJYQYMRBSYYHKXXSTMXRCZJYWXYHYMCF LZHQMQXDBXBZWZMLDMYCKFMKLZCYJYCCHYDBDLLSCDDNLKJYHJSYCJLKOHQASDHNHCSGAEHDAASHTCPLCPQYBSDMPJLPCJAQLCDHJJASPRCHNGJNLHLYYQYHWZPNCCG'
+ S1 + 'XCLYYZMDDZYFTQPCZCYYPFHWLLATZDZJDTCCYFKSCCYYAZJPCOLZYJTFNSJANRC YLMMNXJLMYBSSLJGYLDZDPQBZZBLFNDSJWWMZFFJQQQQXXACLBHKDJXDGMMYDJXZLLSYGXGKJRYWZWYCLZMCSJZLDBNDCFCXYHLSCHYCJQPFQAGMNYXPFRKSSBJLYXY'
+ S1 + 'KCZFHHGGQMJDSXYCSTXNQQJPYJBFCJDYQFBNQEJDGYHBSRCCFDYQBGHYJDYZXGR HTKYLNWDZNTSMGKLBCGBPYSZBYDGZSSTJJJGLNSCMHCWWMNZJJLHMHCHSYDPTTXRYCSXBYHCSMXJSXNBWGPXXTAYBGAJCXLYPDCCWQOCWKCCSBNHCPDYZNBCYYTYCKS'
+ S1 + 'CSSXZBHBSCSBZCZPTAFZLQFLYPYBBJGSZMNNDJMTHYSKKBTXHJCEGBSMGYJZCJT MLJSHRZZSCXJQPTZHMKQGXXJCLJPRMYYGKYBSQKKYTQQXFCWCHCWKELCQBSQYJQCCLMTHSYWHMKTLKJLYCHWHEQJHTJHPPQPQSCFYMMCMGBMHGLGSLLYSDLLLJPCHMJ'
+ S1 + 'ADYSKJSNDHDSKQXNXZTCGGYDLMLJXJBSYCDBHJHCFCWZSJHWTKCLJJSHLYCZJXE MPLPDCGLTBZZTLNJCWJGDTCFGLPLLQFJMHWLJCYHZJXHDXJLHXRSWLWZJCBXMHZQXSDZPMGFCSGLSDYMJSHXPJXOMYQKNMYBLRTHBCFTPMGYXLCHLHLZYLXGSSSSCCL'
+ S1 + 'ZBABGYZLAKTGDNCZZBNZCTDQJCJYJGMCTTJDGCSZLMLHBGLKFWNJHDXUHLFMJYC JGXDTWWFRJEJCTZHYDXYKSHWFZCQSHKNQSLDCLEPBHSHXYYFHBBGDFYCNJQWLQHJJCYWJZTEJJDHFBLQXTQKWHDCHQXAGTLXLJXMSLJHDZKZJECXJCJNMBBJCSFYWKB'
+ S1 + 'QHTZHXMJDJSKHXDJQBZZXYMPAGQMCDBXLSKYGHWRTSCGSCBPDBSGZWJHTLKSSSJ GTTLYYTNXJGMJSZSUFWNLSKCTXGXLSMMLJZGHYSDCPQYRSLJPCLPWXSDWEJBJCBCNAYTMGMBAPCLYQBCLZXCBNMSGGFNZJJBZSFQYNDXHPCQKZCZWALSBCCJXJOZGWK'
+ S1 + 'BWLDCZYAKQCQCTMYCFJBSLXCLZJCLXXKSBZQCLHJPHQPLSXSCKSLNHPSFQQYTXJ JZLQLDXZJJZDYYDJHTPDUZDSKJFSLJHYLYBSGXFCFCDKHJBSTLQFSGDSLQWZKXTMHSBGZHJCRGLYJBPMLJSXLCJQQHZMJCZYDJWBMJKLDDPMJEGXYHYLXHLQYQHKYCW'
+ S1 + 'ZCJSLBDHXDGCJBDYAZXDZHZJNHHQBYKNRJJQCZMLLJZKSPLDLCLBBLXKLELJLBJ YCRJXGCNLCQPLZLZNJTZLSYJBXMYZGWQCCJMYHXNATJHYCCXZPCQLBZWWWTWBQCMLBMYNJCCCXBBSNZZLJPLJXYZTZLGCLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZ'
+ S1 + 'ZYHZBTRBLHLCCCJADJLMMMSSHMYBBBSKKBHRSXJJMXSDGNZPELBBRAGGGFCHGMS KLLTSJYYCQLCSKYWYEHYWHBHQYWBAWYKJLCLGJDJCSNCLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCCZHGYJDJQQLZXJYLDLBCYAMCSTYLBDJBYREGKLZDZHLDSZCHZNW'
+ S1 + 'LDQPTNTKHJCGDQKCGPHSHCPDHTWUBKDHTHLXGTYYDASPGYZPCAQDLTBDSDEGYJQ JCFXSSBZXDFYDLAJCLSXYDYEXCYASDWNDCZCLLWJQJJJKDGJCOLBBZPPGLGHTGZCYGEZMYCNQCYCYHBHGXKAMTXYXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKJSB'
+ S1 + 'AJAYDYWTJDAXYSRLTDPSYJFNEJDYZLXLLHHYQJHGJHZYCSHHSGCZYJGLCNXZJJN FSMFFYCYAMDDHDMCSLQZHZYZTLDYMLLHYGBMMCJSSCLPQPDXCDYYKYFCJDDYYGYWCHJRTGCNYQLDKLJCZZGZCCJGDYKSGPZMDLCPHNJAFYZDJCNMWESCSGLBTZCGMSD'
+ S1 + 'MMYLMBMWKXYDTYLDJPYWUXJMMLLHAFDLLAFLBHHHBJTZCJJJTFMBMHYDCHRDDWR QNYSNMZBYYTBJHPBYGTJAHGQTBSTJKBTSLLYXQSXSBLJSBBSGGHFJLWPMZJNLYYWDQSHZXTYYWHMCYHYWDBXBTLMSWYYFSBJCBDXXLHJHFPSXZQHFZMQCZTQCXZXRDK'
+ S1 + 'BKLDBEQQHQMJDOTTXPGBKTLGJXJJJCDHXQDWJLHRFMJGWQHCKRYSWGBTGWGBWHD WDFJXXXJZLPHYYPAYXHXDKKXSAXYXGRKKDJHNNYZQQFNQDMMGNYDXMJGDHCDYCBFFALLZTDLTFKMXQZDNGEQDBDCZJDXBZGSQQDDJCMBKXFFXMKDMCSYCHZCMLJDJYN'
+ S1 + 'GYKBDDDPPLCJLGQAEWJKSYYHDBPLFJTHKJLTCJYHHGTTBLTZZCDLSHQKCJQYSDE EYHKYZYXPYYSDDJKLLPWMCQHQGXHHCRMBHPRSJMKMPCKLGDBQTFZSWTFGGLYPLLJZHGJJGYPZLTCSMCNBTJBHFKDHBYZGKPBBYMTDLSXSBNPDKLEYCJNYCDYKZDDHQG'
+ S1 + 'XPLLNQTJPJYLFDGFXZBLBTLGXSJBSWYYSKSFLXLPPLBBBLBSFXYZSYLFFFSCJDS TGTRYJCYFFCYTSZBJTBCTSBCDHRTJHBYTSDZSCTARLLTKZLGECLLKJLJJAQNBDGGGHFJTZQJSECSHALQFMMGJNLYJBBTMLYCXDCJPLDLPCQDHSYCBZSCKBZMSLJFLHR'
+ S1 + 'CXYJELXBNEBJDSYSYHGCJZBKBYDFZNGENHHHHJHATFWGCSTBGXKLSTYWMTMBYXJ SKXSCDEJRCWXZFHMYMCXLZNDTDHLXDJGGBJSNBRGJHXPDGDJYBZGDLGCSEZGXLBLGYXTWMABCHECMWYJYZLLJJSHLGBDJLSLYGKDZPZXJYYZLPCXSZFGWYYDLYHCLJS'
+ S1 + 'YBFBNBBTHFJAAXWFPXMYFHDDTCXZSPJRSYWZDLYBBJDYQPQJPZYPZJZNJPZJLZD FYSBTTSLMPTZRTDXQSJEHBZYJZDHLJSQMCMBJHBLYJLYCBLYDPDQYSXKTBYTDKDXJYPCNRJMFDJGKLCCJBCTBJDDBBLBLCDQRPPXJCGLZCSHLTOLJNMDDDLNGKAQAKG'
+ S1 + 'LHTXTJECXALZDSPKTLZKJQYFSYGYWPCPQFHQHYTQXZJRSGTGSJCZLBTXCDYYQSS QCSLXLZMACBCQBZYXHBSXLZDLTCDJTYLZJGYHHEZNMSHRPHQQJCHGMFPRXCJGDYCHGHLYRZQLCNGJNZSQDKQJYMSZSWLCFQJQXGBGGXMDJWLMCRNFKKFSYYLJBMQAMM'
+ S1 + 'JYYTPZYLLTXJSJXHCBRYBXQZSJSWWWYGYABBCTJKTGPYSBXBBCMLLXZTBKLGQKQ LSKDFXRDKBFPFTBBMFEEQGKPZSSTLBDPSMYCCTBSHCPTXXZZSMPHFSHMCLMLDJFYQXSDYJDJJZZHQPDSZGLSSJBCKBXYQZJSGPSXJZQZNQTBDKWXJKHHGFLBCSMDLDG'
+ S1 + 'ZZSJCHLQLZPMSMMSXLQQNKNBNDDNHHDHDDJYYYFQGZLGSMJQGXHCQLGPBQXCYZY DRJBGTDJXEESHTMJSBWBLWHLSFFNYPMGXDZDBLZKYCQNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLDXCCLZSHZCXRQJGJYLXZFJPHYMZQQYDFQJJLCZNZJCDGZYG'
+ S1 + 'QHPLTBQPFBCWGDBYGJNXTBFZJGSDCDJSHXEAWZZYLGTTQBWJKGXGHLFKXDJTMSZ SQYNZGGSWQSBHCLSSKMCLZXYSZQQXNCJDCDXMZYSCTLKPHTXHTLBJXJLXSCDQCCBBQJFQZFSLTJBTKQBSXJJLJCHCZDBZJDCZJCCPRNLQCGPFCZLCLCXZDMXMPHGSGZ'
+ S1 + 'QGZDLFNYKLACJLLZLMZJNHYDSCHTHXZLZJBBHQZWWYCRDHLYQQJBEYFSGXTHSRX WJHWFSLMSSGZTDYEYQQWRSLALHMJTQJCMGSZZQJXLWTJPFSYASLCJBTCKWCWMYTCSJJLJCQLWZMALBXYFBPNLSCHTGJWEJJXXGLLJSTGSHJQLZFKCGNNDSZFDEQFHBS'
+ S1 + 'XQBJJZJQLYZKXBYQXBJXSHZSSFGLXMXZXFGHKZSSGGMLCLSARJXHSLLLMZXELGL XDJTBGYZBJKTZHKZJYQCBCTWWQJFJWXHGAQDGYLBXMMYGSZLDYDJMJJRGBJGKGDHGKBLGKBDMBYLXWCXYTTYBKMRJJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ'
+ S1 + 'SGDYFLJBYFDJFRGSFMBYCHQFBWJSYFAGGPHZBYYZFFWODGRLBFTMLBZGYCGXCDJ AGZYYYYHYTYDWEGAZAHXJLZXTHLRMGRJX '
+ S1 + 'DCGHNELJJTGTBWJYBJJBXJJTJTEEKGWSCJPLPSFAZFQQBDLQJJTYYQLYZKDKSQJ YYJZLDQCGJJYZJSUCMRAQCHCEJMBCTYHY '
+ S1 + 'BKMHYCWJDCFHYYXWSHCTXRLJGJSHCCYYYJLTKTSYTMXGTCJTZAXYOCZLYLBSZYW JYTSJYHBYSHFJLYGJXXTMZSYLTXXYPCLX '
+ S1 + 'YJZYZYYBNHMYMDYYLBLHLSYYGGLLSCXLXHDWKQGYSHQYWLJYYHZMSLJLJJCJJYY CBCPCJMYLCJLNJJJLXXJMLZJQLYCMHCFM '
+ S1 + 'MFPQQMFXLMCFQMMMZNFHJGTTHKHCHYDXTMJDYMYYCYJYDYDCWMDYDLFMYCQCWZZ MABTBCMDZGDFYCGCYTTSFWBDTZQSSSTJJ '
+ S1 + 'HJYTSXLYHHHXEXWZNNJZJJJJCCCHYYXBZSCCYJTLLCQSKNJYCYWCQNCCQYYOEWY CZDCJEHYLPGLYLLGKDLDGQBCHJXY '
+ S1;
If hzstr = '' Then
Begin
result := '';
exit
End;
STRLEN := LENGTH (hzstr);
PYSTR1 := '';
j := 0;
For i := 1 to STRLEN Do
Begin
If j = 0 Then j := i;
If MIDSTR (hzstr, j, 1) > chr (128) Then
Begin
n:=StrToInt(padl(ord(hzstr[j])-128) + padl(ord(hzstr[j+1]) - 63));
PYSTR1 := PYSTR1 + PYSTR
;
inc (j)
End
Else PYSTR1 := PYSTR1 + MIDSTR (hzstr, j, 1);
inc (j)
End;
result := UpperCase(PYSTR1);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=topy(edit1.text);
end;
end.
这种做法是将汉字码与首字母对应起来，非常全面，但也有个别问题存在，希望大家指出
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- delphi listview自绘图形
- delphi开发学习五：QuickReoprt报表控件使用实例
- Delphi如何从内存流中判断图片格式,MemoryStream
- 开发支付宝支付用DELPHI实现 RSA签名
- delphi编程如何判断图片文件的真实类型？
- Delphi中的for循环本质详解
- 给各位使用delphi借助CEF开发的朋友一个帮助
- delphi开发学习四：TClientDataSet与TDataSetProvider控件使用实例
- delphi TMemoryStream对象用法
- Delphi-string转pbyte的方法——Move函数！
- Delphi流操作技巧
- 在delphi中Char,PChar,PByte,Byte,String的相互转换示例
- delphi中的Label控件背景透明
- Delphi TBitMap 位图组件
- 在非UI线程中更改UI（Delphi使用隐藏窗口来处理，QT使用信号槽）
- Delphi开发学习三：TdataSource 控件与 TDBGrid 控件使用实例
- Delphi的Owner与Parent可以不一致，而且Owner不是必须存在（一共7个问题） good
- Delphi XE7 安装
- 截断WM_SYSCOMMAND的SC_CLOSE命令（VC与Delphi双版本）
- Delphi 记事本 TMemo（5篇）