如何获取汉字的拼音代码?????????????????????????????急急急急.........

function GetHzPy(const AHzStr: string): string;
const
    ChinaCode       : array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
        (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
        (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
        (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),
        (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));
var
    i, j, HzOrd     : integer;
// Hz: string[2];
begin
    i := 1;
    while i <= Length(AHzStr) do
    begin
        if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then
        begin
            HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;
            for j := 0 to 25 do
            begin
                if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then
                begin
                    Result := Result + char(byte('A') + j);
                    break;
                end;
            end;
            Inc(i);
        end else Result := Result + AHzStr[i];
        Inc(i);
    end;
end;

function PY(S: string): string;
var
  I: Integer;
  Key: Word;
begin
  Result := '';
  I := 1;
  while I <= Length(S) do
  begin
    Key := Ord(S[I]) * 256 + Ord(S[I + 1]);
    Inc(I, 2);
    case Key of
      $B0A1..$B0C4: Result := Result + 'A';
      $B0C5..$B2C0: Result := Result + 'B';
      $B2C1..$B4ED: Result := Result + 'C';
      $B4EE..$B6E9: Result := Result + 'D';
      $B6EA..$B7A1: Result := Result + 'E';
      $B7A2..$B8C0: Result := Result + 'F';
      $B8C1..$B9FD: Result := Result + 'G';
      $B9FE..$BBF6: Result := Result + 'H';
      $BBF7..$BFA5: Result := Result + 'J';
      $BFA6..$C0AB: Result := Result + 'K';
      $C0AC..$C2E7: Result := Result + 'L';
      $C2E8..$C4C2: Result := Result + 'M';
      $C4C3..$C5B5: Result := Result + 'N';
      $C5B6..$C5BD: Result := Result + 'O';
      $C5BE..$C6D9: Result := Result + 'P';
      $C6DA..$C8BA: Result := Result + 'Q';
      $C8BB..$C8F5: Result := Result + 'R';
      $C8F6..$CBF9: Result := Result + 'S';
      $CBFA..$CDD9: Result := Result + 'T';
      $CDDA..$CEF3: Result := Result + 'W';
      $CEF4..$D188: Result := Result + 'X';
      $D1B9..$D4D0: Result := Result + 'Y';
      $D4D1..$D7F9: Result := Result + 'Z';
    else
      Result := Result + '?';
    end;
  end;
end;

eidt1.text := '知道';
edit2.text := py(edit1.text);

同意
miaofeng800108(自由人) (

function PY(S: string): string;
var
  I: Integer;
  Key: Word;
begin
  Result := '';
  I := 1;
  while I <= Length(S) do
  If ORD(S[I])<=127 Then
    Begin
    //是字母、数字、符号
    result:=result+S[I];
    Inc(I);
    End
    Else
    Begin
      begin
        Key := Ord(S[I]) * 256 + Ord(S[I + 1]);
       Inc(I, 2);
       case Key of
         $B0A1..$B0C4: Result := Result + 'A';
         $B0C5..$B2C0: Result := Result + 'B';
         $B2C1..$B4ED: Result := Result + 'C';
         $B4EE..$B6E9: Result := Result + 'D';
          $B6EA..$B7A1: Result := Result + 'E';
         $B7A2..$B8C0: Result := Result + 'F';
         $B8C1..$B9FD: Result := Result + 'G';
         $B9FE..$BBF6: Result := Result + 'H';
         $BBF7..$BFA5: Result := Result + 'J';
         $BFA6..$C0AB: Result := Result + 'K';
          $C0AC..$C2E7: Result := Result + 'L';
          $C2E8..$C4C2: Result := Result + 'M';
          $C4C3..$C5B5: Result := Result + 'N';
          $C5B6..$C5BD: Result := Result + 'O';
          $C5BE..$C6D9: Result := Result + 'P';
          $C6DA..$C8BA: Result := Result + 'Q';
          $C8BB..$C8F5: Result := Result + 'R';
          $C8F6..$CBF9: Result := Result + 'S';
          $CBFA..$CDD9: Result := Result + 'T';
          $CDDA..$CEF3: Result := Result + 'W';
          $CEF4..$D188: Result := Result + 'X';
          $D1B9..$D4D0: Result := Result + 'Y';
          $D4D1..$D7F9: Result := Result + 'Z';
      else
          Result := Result + '?';
      end;
    end
  end;
end;

//-----------------------汉字转拼音------------------------------
function GetPY(hzchar: string): string;
VAR
hstrA,hstrB,hstrC,hstrD,hstrE,hstrF,hstrG,hstrH,hstrJ,hstrK,hstrL,hstrM:string;
hstrN,hstrO,hstrP,hstrQ,hstrR,hstrS,hstrT,hstrW,hstrX,hstrY,hstrZ:string;
i:integer;
sHz,sPYM:string;
begin
  i := 1;
  while i <= length(hzchar) do
    begin
     sHz := COPY(hzchar, i, 2);
    case WORD(sHz[1]) shl 8 + WORD(sHz[2]) of
    $B0A1..$B0C4: result := 'A';
    $B0C5..$B2C0: result := 'B';
    $B2C1..$B4ED: result := 'C';
    $B4EE..$B6E9: result := 'D';
    $B6EA..$B7A1: result := 'E';
    $B7A2..$B8C0: result := 'F';
    $B8C1..$B9FD: result := 'G';
    $B9FE..$BBF6: result := 'H';
    $BBF7..$BFA5: result := 'J';
    $BFA6..$C0AB: result := 'K';
    $C0AC..$C2E7: result := 'L';
    $C2E8..$C4C2: result := 'M';
    $C4C3..$C5B5: result := 'N';
    $C5B6..$C5BD: result := 'O';
    $C5BE..$C6D9: result := 'P';
    $C6DA..$C8BA: result := 'Q';
    $C8BB..$C8F5: result := 'R';
    $C8F6..$CBF9: result := 'S';
    $CBFA..$CDD9: result := 'T';
    $CDDA..$CEF3: result := 'W';
    $CEF4..$D1B8: result := 'X';
    $D1B9..$D4D0: result := 'Y';
    $D4D1..$D7F9: result := 'Z';
  else
    result := '';
  end;  //未完

//续1
if (result='') and (sHZ<>' ') then begin
hstrA:= '吖锕嗄锿捱嗳霭砹嗌嫒暧瑷桉庵谙鹌埯铵揞犴黯坳嗷' +
'廒獒遨聱螯鳌鏖媪岙骜鏊';
HstrB:= '岜粑茇菝魃鲅灞掰捭呗瘢癍阪坂钣舨浜蒡勹孢煲龅鸨' +
'葆褓趵陂鹎邶悖碚蓓褙鞴鐾贲锛畚坌嘣甏荸匕吡妣秕俾'+
'舭畀哔荜狴铋婢庳萆弼愎筚滗裨跸箅嬖篦薜濞髀璧襞砭' +
'笾煸蝙鳊窆匾碥褊弁忭汴苄缏飑髟骠瘭镖飙飚镳婊裱鳔' +
'蹩傧缤槟镔豳殡膑髌鬓邴禀摒饽啵孛亳钹鹁踣礴跛簸擘' +
'檗逋钸晡醭卟钚瓿玢宀疒';
HstrC:= '嚓礤骖黪粲璨伧嘈漕艚螬艹恻岑涔噌杈馇锸猹槎檫衩' +
'镲汊姹钗侪虿瘥觇婵孱禅廛潺镡蟾躔谄蒇冁忏羼伥娼菖' +
'阊鲳苌徜嫦昶惝氅怅鬯怊焯晁耖砗屮坼抻琛嗔宸谌碜龀' +
'榇谶柽蛏铛瞠丞枨埕铖裎塍酲哧蚩鸱眵笞嗤媸螭魑茌墀' +
'踟篪豉褫彳叱饬敕啻傺瘛忡茺舂憧艟铳瘳俦帱惆雠樗刍' +
'蜍蹰杵楮褚亍怵绌憷黜搋啜嘬踹巛氚舡遄舛钏怆陲棰槌' +
'蝽莼鹑踔辍龊呲祠茈鹚糍苁枞骢璁淙琮楱腠辏徂殂猝蔟' +
'蹙蹴汆';
HstrD:= '哒耷嗒褡妲怛笪靼鞑岱甙绐迨玳埭黛眈聃殚瘅箪儋疸啖' +
'萏澹裆谠凼宕砀菪叨忉氘纛锝噔簦戥嶝磴镫羝嘀镝籴荻觌' +
'氐诋邸坻柢砥骶娣谛棣睇碲嗲巅癫踮阽坫玷钿癜簟貂鲷铞' +
'垤瓞堞揲耋牒蹀鲽仃玎疔耵酊啶腚碇铥咚岽氡鸫垌峒胨胴' +
'硐蔸篼蚪窦嘟渎椟牍黩髑笃芏蠹椴煅簖怼碓憝镦礅盹趸沌' +
'炖砘咄裰铎踱哚缍沲卩亻赕铫町铤夂丶';
HstrE:= '屙莪锇婀呃苊轭垩谔阏愕萼腭锷鹗颚噩鳄蒽摁鸸鲕迩珥' +
'铒佴嗯唔诶';
HstrF:= '垡砝幡蕃燔蹯蘩畈梵邡枋钫鲂舫妃绯扉蜚霏鲱淝腓悱斐' +
'榧翡篚狒痱镄棼鼢偾鲼瀵沣砜葑酆唪俸缶呋趺麸稃跗凫孚' +
'芙芾怫绂绋苻祓罘茯郛砩莩蚨匐桴艴菔蜉幞蝠黻拊滏黼驸' +
'鲋赙蝮鳆馥攵犭';
HstrG:= '旮伽钆尜尕尬陔垓赅丐戤坩泔苷疳酐尴澉橄擀旰矸绀淦' +
'罡筻戆槔睾杲缟槁藁诰郜锆圪纥袼鬲嗝塥搿膈镉骼哿舸虼' +
'硌哏亘艮茛赓哽绠鲠肱蚣觥珙佝缑篝鞲岣枸笱诟媾彀遘觏' +
'轱鸪菰蛄觚酤毂鹘汩诂牯罟钴嘏臌瞽崮梏牿痼锢鲴胍鸹呱' +
'卦诖倌鳏掼涫盥鹳咣桄胱犷妫皈鲑宄庋匦晷簋刿炅鳜衮绲' +
'磙鲧呙埚崞聒蝈帼掴虢馘猓椁蜾桧莞呷';
HstrH:= '鹄铪嗨胲醢顸蚶鼾邗晗焓菡颔撖瀚绗颃沆蒿嚆薅蚝嗥濠' +
'昊皓颢灏诃嗬劾曷盍颌阖翮壑桁珩蘅訇薨闳泓荭蕻黉讧瘊' +
'篌糇骺後逅堠鲎虍烀轷唿惚滹囫斛猢煳鹕槲醐觳浒琥冱岵' +
'怙戽祜笏扈瓠鹱骅铧桦踝獾洹萑锾寰缳鬟奂浣逭漶鲩擐肓' +
'隍徨湟遑潢璜篁癀蟥鳇诙咴虺晖珲麾隳洄茴哕浍荟恚彗喙' +
'缋蕙蟪阍馄诨溷耠锪劐攉钬夥镬嚯藿蠖砉圜';//hstrI:=Hstrj:='丌叽乩玑芨矶咭剞唧屐笄嵇犄赍跻畿齑墼羁岌亟佶笈戢'+
'殛楫蒺瘠蕺虮掎戟嵴麂芰哜洎觊偈暨跽霁鲚稷鲫髻骥迦浃'+
'痂笳袈葭跏镓岬郏恝戛铗蛱胛瘕戋菅湔' +
'犍搛缣蒹鲣鹣鞯囝枧笕趼睑裥锏谫戬翦謇蹇牮谏楗毽腱僭踺'+
'茳豇缰礓耩洚绛犟糨艽姣茭蛟跤僬鲛鹪佼挢皎敫徼噍醮疖' +
'嗟孑讦诘拮桀婕颉碣鲒羯蚧骱钅矜衿' +
'卺堇廑馑槿瑾妗荩赆缙觐噤泾旌菁腈阱刭肼儆憬弪迳胫婧獍'+
'扃迥鸠赳阄啾鬏柩桕噘孓珏崛桷觖厥劂谲獗蕨橛镢蹶矍爝皲'+
'筠麇捃纟廴鄄莒';HstrK:= '蚵咔佧胩锎剀垲恺铠蒈锴忾龛戡侃莰阚瞰伉闶钪尻栲铐'+
'犒珂轲疴钶颏稞窠瞌蝌髁岢恪氪骒缂嗑溘锞裉铿倥崆箜芤'+
'叩筘蔻刳堀骷绔喾侉蒯郐哙狯脍髋诓哐' +
'诳夼邝圹纩贶悝逵馗喹揆暌睽蝰夔跬匮喟愦蒉篑聩琨锟髡醌'+
'鲲悃阃栝蛞';HstrL:=' 冫靓邋旯砬剌瘌崃徕涞铼赉睐濑癞籁岚褴斓镧榄漤罱啷'+
'莨稂锒螂阆蒗唠崂痨铹醪栳铑耢仂叻泐鳓嫘缧檑羸耒诔酹嘞'+
'塄愣骊喱鹂缡蓠蜊嫠鲡罹藜黧蠡俚娌逦' +
'锂澧醴鳢呖坜苈戾枥疠俪栎疬轹郦猁砺莅唳笠粝蛎詈跞雳溧'+
' 篥奁裢鲢濂臁蠊琏裣蔹娈殓楝潋椋墚踉魉嘹寮獠缭鹩钌蓼' +
' 咧冽洌埒捩趔躐鬣啉粼嶙遴辚瞵麟廪' +
'懔檩蔺膦躏囹泠苓柃瓴棂绫翎聆蛉鲮酃呤熘浏旒遛骝镏鎏绺'+
' 锍鹨泷茏栊珑胧砻癃泸鹭';HstrM:= '膂褛栾鸾脔銮锊囵捋猡脶椤镙倮瘰蠃泺荦珞摞漯雒呒嬷 '+
'蟆犸杩唛霾荬劢颟鞔鳗螨墁幔缦熳镘邙硭漭蟒牦旄蛑髦蝥蟊'+
' 峁泖茆昴耄袤瑁瞀懋莓嵋湄猸楣镅鹛浼 '+
'袂魅扪钔焖懑虻甍瞢朦礞艨勐艋蜢懵蠓咪祢猕縻麋蘼芈弭敉'+
' 脒糸汨宓谧嘧沔黾眄湎腼喵鹋杪眇淼缈邈咩篾蠛岷玟苠珉缗'+
'闵泯愍鳘茗冥溟暝瞑酩缪谟嫫馍麽殁茉秣蓦貊瘼镆貘耱哞侔'+
'眸鍪毪仫沐坶苜钼渑';HstrN:= '拗廾乜镎肭衲捺艿柰萘鼐囡喃楠赧腩蝻囔馕曩攮孬呶硇'+
' 铙猱蛲垴瑙讷坭怩铌猊鲵伲旎昵睨鲇鲶黏辇廿埝茑袅嬲脲陧'+
'臬嗫颞蹑蘖咛聍佞甯妞忸狃侬哝耨孥驽' +
'弩胬钕恧衄傩喏搦锘恁';HstrO:= '噢讴瓯耦怄';

//续2HstrP:=' 钯拚彷冖葩杷筢俳哌蒎爿蹒蟠泮袢襻滂逄螃脬庖狍匏疱'+
'醅锫帔旆辔霈湓怦嘭堋蟛丕纰邳铍噼芘枇蚍郫陴埤罴蜱貔鼙'+
'庀仳圮擗癖淠媲睥甓犏翩骈胼蹁谝剽缥' +
'螵殍瞟嘌嫖氕丿苤姘嫔颦榀牝娉俜枰鲆钋鄱皤叵钷笸珀掊裒'+
' 攴噗匍璞濮镤溥氆镨蹼';HstrQ:=' 匚袷湫峤趄瞿桤萋嘁槭蹊亓圻岐芪耆颀淇萁骐琦琪祺蛴'+
'綦蜞蕲鳍麒屺芑杞绮綮汔荠葺碛憩葜髂阡芊佥岍悭愆骞搴褰'+
' 钤虔掮箝肷慊缱芡茜倩椠戕戗跄蜣锖锵' +
'镪嫱樯羟襁炝硗跷劁缲荞谯憔鞒樵愀诮妾挈惬箧锲衾芩嗪溱'+
' 噙檎螓锓吣揿圊蜻鲭檠黥苘謦箐磬罄跫銎邛穹茕筇蛩蚯楸鳅'+
' 犰虬俅逑赇巯遒裘蝤鼽糗岖诎祛蛐麴 '+
'黢劬朐鸲蕖磲璩蘧氍癯衢蠼阒觑悛诠荃辁铨筌蜷鬈畎绻悫阕'+
'阙逡郄';HstrR:= '蚺髯苒禳穰荛桡娆荏稔仞轫饪衽肜狨嵘榕蝾糅蹂鞣铷嚅'+
' 濡薷襦颥洳溽缛蓐朊蕤芮枘蚋睿偌箬';HstrS:=' 灬杓丨凵葚仨卅飒脎噻毵糁馓搡磉颡缫臊鳋埽瘙啬铯穑'+
'铩痧裟鲨唼歃霎彡芟姗钐埏舢跚潸膻讪疝骟鄯嬗蟮鳝殇觞熵'+
'垧绱筲艄蛸劭潲猞畲佘厍滠麝诜哂矧谂 '+
'渖胂椹蜃笙眚晟嵊蓍酾鲺饣炻埘莳鲥豕礻贳舐轼铈弑谥筮螫'+
'艏狩绶殳纾姝倏菽摅毹秫塾沭腧澍唰蟀闩涮孀氵妁铄嗍搠蒴'+
'槊厶咝鸶缌蛳厮锶澌汜兕姒祀泗驷俟' +
'笥耜忪凇崧淞菘嵩悚竦嗖溲馊飕锼螋叟嗾瞍薮稣夙涑谡嗉愫'+
'蔌觫簌狻荽眭睢濉谇莘';HstrT:= '沓呔焘钭冂苕扌趿铊溻鳎闼遢榻骀邰炱跆鲐薹肽钛昙郯'+
'覃锬忐钽铴羰镗饧溏瑭樘螗螳醣帑傥耥韬饕洮啕鼗忑忒铽慝'+
'滕绨缇鹈醍倜悌逖裼畋阗忝殄掭佻祧笤 '+
'龆蜩髫鲦窕粜萜餮莛婷葶蜓霆梃嗵仝佟茼砼僮潼恸骰荼酴钍'+
' 堍菟抟疃彖煺暾饨豚氽乇佗坨沱柁砣跎酡橐鼍庹柝箨';//hstrU:=//hstrV:=HstrW:=' 亠娲佤腽崴剜蜿纨芄绾脘菀琬畹罔惘辋魍偎逶隈葳煨薇'+
'囗帏沩闱涠帷嵬炜玮洧娓诿隗猥痿艉韪鲔軎猬阌雯刎汶璺蓊'+
'蕹倭莴喔肟幄渥硪龌圬邬浯蜈鼯仵妩庑忤怃迕牾鹉兀阢杌芴'+
'焐婺痦骛寤鹜鋈';HstrX:=' 郇彐噱荨圩兮穸郗唏奚浠欷淅菥粞翕舾皙僖蜥嬉樨歙熹'+
'羲螅蟋醯曦鼷觋隰玺徙葸屣蓰禧饩阋舄禊狎柙硖遐瑕黠罅氙'+
'祆籼莶跹酰暹娴痫鹇冼猃蚬筅跣藓燹岘苋霰芗缃葙骧庠饷飨'+
'鲞蟓枭哓枵骁绡逍潇箫魈崤筱偕' +
'勰撷缬绁亵渫榍榭廨獬薤邂燮瀣躞昕歆馨鑫囟陉硎擤荇悻芎'+
' 咻庥鸺貅馐髹岫溴盱胥顼诩栩糈醑洫勖溆煦蓿谖揎萱暄煊儇' +
'痃漩璇泫炫铉渲楦碹镟泶踅鳕谑埙窨獯薰曛醺峋恂洵浔荀鲟'+
' 徇巽 ';HstrY:=' 肀剡桠伢岈琊睚痖迓垭娅砑氩揠恹胭崦菸湮腌鄢嫣讠闫'+
'妍芫筵檐兖俨偃厣郾琰罨魇鼹晏焱滟酽谳餍赝泱鞅炀徉烊蛘'+
'怏恙幺夭吆爻肴轺珧徭繇鳐杳窈崾鹞曜揶铘邺晔烨谒靥衤咿' +
'猗欹漪噫黟圯诒怡迤饴咦荑贻眙' +
'酏痍嶷钇苡舣旖弋刈仡佚呓佾峄怿驿奕弈羿轶悒挹埸翊缢瘗' +
'蜴熠镒劓殪薏翳癔镱懿洇氤铟喑堙垠狺鄞夤龈霪吲蚓瘾茚胤' +
'莺瑛嘤撄罂璎鹦膺茔荥萦楹滢蓥潆嬴瀛郢颍瘿媵唷邕墉慵壅'+
'镛鳙狳谀馀萸雩嵛揄腴瑜觎窬蝓伛俣圄圉庾瘐窳龉聿妪饫昱'+
' 钰谕阈鹆煜蓣毓蜮燠鹬鬻鸢眢箢沅爰鼋塬橼螈垸媛掾瑗刖钺'+
'樾龠瀹纭芸昀氲狁殒郓恽愠韫熨攸禺';HstrZ:=' 辶酢喋阝咂拶甾崽糌簪昝趱錾瓒臧驵奘唣迮啧帻笮舴箦'+
' 赜仄昃谮缯罾锃甑吒哳揸楂齄砟咤痄蚱砦瘵旃谵搌鄣嫜獐璋'+
' 蟑仉嶂幛钊啁诏笊棹蜇辄谪摺磔赭褶柘鹧浈桢祯蓁榛箴胗轸'+
' 畛缜稹圳鸩朕赈峥钲铮筝徵诤卮' +
'栀祗胝埴絷跖摭踯芷祉咫枳轵黹酯忮豸帙郅栉陟桎贽轾鸷彘'+
'痣蛭骘雉膣觯踬舯锺螽冢踵妯碡纣绉胄荮酎籀侏邾洙茱铢槠'+
'潴橥竺舳瘃躅渚麈伫苎杼炷疰箸翥颛啭馔丬隹骓惴缒肫窀倬'+
' 涿斫菹镞俎躜缵攥蕞樽鳟撙阼怍祚胙唑秭梓腙';

输入 “知道”好象只能得到“ZD”，有没有可以行到“zhidao”的?

调试易

如何获取汉字的拼音代码?????????????????????????????急急急急.........

解决方案 »