@再议：关于二级字库的编码问题，已知汉字，给出汉字拼音首字符---欢迎大家讨论！！！

哥们，去看看：
http://expert.csdn.net/Expert/topic/1339/1339519.xml?temp=3.895205E-02

转载：
function GetPY1(const hz: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;
begin
hstrA:= '吖锕嗄锿捱嗳霭砹嗌嫒暧瑷桉庵谙鹌埯铵揞犴黯坳嗷' +
'廒獒遨聱螯鳌鏖媪岙骜鏊';
HstrB:= '岜粑茇菝魃鲅灞掰捭呗瘢癍阪坂钣舨浜蒡勹孢煲龅鸨' +
'葆褓趵陂鹎邶悖碚蓓褙鞴鐾贲锛畚坌嘣甏荸匕吡妣秕俾'+
'舭畀哔荜狴铋婢庳萆弼愎筚滗裨跸箅嬖篦薜濞髀璧襞砭' +
'笾煸蝙鳊窆匾碥褊弁忭汴苄缏飑髟骠瘭镖飙飚镳婊裱鳔' +
'蹩傧缤槟镔豳殡膑髌鬓邴禀摒饽啵孛亳钹鹁踣礴跛簸擘' +
'檗逋钸晡醭卟钚瓿玢宀疒';
HstrC:= '嚓礤骖黪粲璨伧嘈漕艚螬艹恻岑涔噌杈馇锸猹槎檫衩' +
'镲汊姹钗侪虿瘥觇婵孱禅廛潺镡蟾躔谄蒇冁忏羼伥娼菖' +
'阊鲳苌徜嫦昶惝氅怅鬯怊焯晁耖砗屮坼抻琛嗔宸谌碜龀' +
'榇谶柽蛏铛瞠丞枨埕铖裎塍酲哧蚩鸱眵笞嗤媸螭魑茌墀' +
'踟篪豉褫彳叱饬敕啻傺瘛忡茺舂憧艟铳瘳俦帱惆雠樗刍' +
'蜍蹰杵楮褚亍怵绌憷黜搋啜嘬踹巛氚舡遄舛钏怆陲棰槌' +
'蝽莼鹑踔辍龊呲祠茈鹚糍苁枞骢璁淙琮楱腠辏徂殂猝蔟' +
'蹙蹴汆';
HstrD:= '哒耷嗒褡妲怛笪靼鞑岱甙绐迨玳埭黛眈聃殚瘅箪儋疸啖' +
'萏澹裆谠凼宕砀菪叨忉氘纛锝噔簦戥嶝磴镫羝嘀镝籴荻觌' +
'氐诋邸坻柢砥骶娣谛棣睇碲嗲巅癫踮阽坫玷钿癜簟貂鲷铞' +
'垤瓞堞揲耋牒蹀鲽仃玎疔耵酊啶腚碇铥咚岽氡鸫垌峒胨胴' +
'硐蔸篼蚪窦嘟渎椟牍黩髑笃芏蠹椴煅簖怼碓憝镦礅盹趸沌' +
'炖砘咄裰铎踱哚缍沲卩亻赕铫町铤夂丶';
HstrE:= '屙莪锇婀呃苊轭垩谔阏愕萼腭锷鹗颚噩鳄蒽摁鸸鲕迩珥' +
'铒佴嗯唔诶';
HstrF:= '垡砝幡蕃燔蹯蘩畈梵邡枋钫鲂舫妃绯扉蜚霏鲱淝腓悱斐' +
'榧翡篚狒痱镄棼鼢偾鲼瀵沣砜葑酆唪俸缶呋趺麸稃跗凫孚' +
'芙芾怫绂绋苻祓罘茯郛砩莩蚨匐桴艴菔蜉幞蝠黻拊滏黼驸' +
'鲋赙蝮鳆馥攵犭';
HstrG:= '旮伽钆尜尕尬陔垓赅丐戤坩泔苷疳酐尴澉橄擀旰矸绀淦' +
'罡筻戆槔睾杲缟槁藁诰郜锆圪纥袼鬲嗝塥搿膈镉骼哿舸虼' +
'硌哏亘艮茛赓哽绠鲠肱蚣觥珙佝缑篝鞲岣枸笱诟媾彀遘觏' +
'轱鸪菰蛄觚酤毂鹘汩诂牯罟钴嘏臌瞽崮梏牿痼锢鲴胍鸹呱' +
'卦诖倌鳏掼涫盥鹳咣桄胱犷妫皈鲑宄庋匦晷簋刿炅鳜衮绲' +
'磙鲧呙埚崞聒蝈帼掴虢馘猓椁蜾桧莞呷';
HstrH:= '鹄铪嗨胲醢顸蚶鼾邗晗焓菡颔撖瀚绗颃沆蒿嚆薅蚝嗥濠' +
'昊皓颢灏诃嗬劾曷盍颌阖翮壑桁珩蘅訇薨闳泓荭蕻黉讧瘊' +
'篌糇骺後逅堠鲎虍烀轷唿惚滹囫斛猢煳鹕槲醐觳浒琥冱岵' +
'怙戽祜笏扈瓠鹱骅铧桦踝獾洹萑锾寰缳鬟奂浣逭漶鲩擐肓' +
'隍徨湟遑潢璜篁癀蟥鳇诙咴虺晖珲麾隳洄茴哕浍荟恚彗喙' +
'缋蕙蟪阍馄诨溷耠锪劐攉钬夥镬嚯藿蠖砉圜';//hstrI:=Hstrj:='丌叽乩玑芨矶咭剞唧屐笄嵇犄赍跻畿齑墼羁岌亟佶笈戢'+
'殛楫蒺瘠蕺虮掎戟嵴麂芰哜洎觊偈暨跽霁鲚稷鲫髻骥迦浃'+
'痂笳袈葭跏镓岬郏恝戛铗蛱胛瘕戋菅湔' +
'犍搛缣蒹鲣鹣鞯囝枧笕趼睑裥锏谫戬翦謇蹇牮谏楗毽腱僭踺'+
'茳豇缰礓耩洚绛犟糨艽姣茭蛟跤僬鲛鹪佼挢皎敫徼噍醮疖' +
'嗟孑讦诘拮桀婕颉碣鲒羯蚧骱钅矜衿' +
'卺堇廑馑槿瑾妗荩赆缙觐噤泾旌菁腈阱刭肼儆憬弪迳胫婧獍'+
'扃迥鸠赳阄啾鬏柩桕噘孓珏崛桷觖厥劂谲獗蕨橛镢蹶矍爝皲'+
'筠麇捃纟廴鄄莒';HstrK:= '蚵咔佧胩锎剀垲恺铠蒈锴忾龛戡侃莰阚瞰伉闶钪尻栲铐'+
'犒珂轲疴钶颏稞窠瞌蝌髁岢恪氪骒缂嗑溘锞裉铿倥崆箜芤'+
'叩筘蔻刳堀骷绔喾侉蒯郐哙狯脍髋诓哐' +
'诳夼邝圹纩贶悝逵馗喹揆暌睽蝰夔跬匮喟愦蒉篑聩琨锟髡醌'+
'鲲悃阃栝蛞';HstrL:=' 冫靓邋旯砬剌瘌崃徕涞铼赉睐濑癞籁岚褴斓镧榄漤罱啷'+
'莨稂锒螂阆蒗唠崂痨铹醪栳铑耢仂叻泐鳓嫘缧檑羸耒诔酹嘞'+
'塄愣骊喱鹂缡蓠蜊嫠鲡罹藜黧蠡俚娌逦' +
'锂澧醴鳢呖坜苈戾枥疠俪栎疬轹郦猁砺莅唳笠粝蛎詈跞雳溧'+
' 篥奁裢鲢濂臁蠊琏裣蔹娈殓楝潋椋墚踉魉嘹寮獠缭鹩钌蓼' +
' 咧冽洌埒捩趔躐鬣啉粼嶙遴辚瞵麟廪' +
'懔檩蔺膦躏囹泠苓柃瓴棂绫翎聆蛉鲮酃呤熘浏旒遛骝镏鎏绺'+
' 锍鹨泷茏栊珑胧砻癃泸';HstrM:= '膂褛栾鸾脔銮锊囵捋猡脶椤镙倮瘰蠃泺荦珞摞漯雒呒嬷 '+
'蟆犸杩唛霾荬劢颟鞔鳗螨墁幔缦熳镘邙硭漭蟒牦旄蛑髦蝥蟊'+
' 峁泖茆昴耄袤瑁瞀懋莓嵋湄猸楣镅鹛浼 '+
'袂魅扪钔焖懑虻甍瞢朦礞艨勐艋蜢懵蠓咪祢猕縻麋蘼芈弭敉'+
' 脒糸汨宓谧嘧沔黾眄湎腼喵鹋杪眇淼缈邈咩篾蠛岷玟苠珉缗'+
'闵泯愍鳘茗冥溟暝瞑酩缪谟嫫馍麽殁茉秣蓦貊瘼镆貘耱哞侔'+
'眸鍪毪仫沐坶苜钼渑';HstrN:= '拗廾乜镎肭衲捺艿柰萘鼐囡喃楠赧腩蝻囔馕曩攮孬呶硇'+
' 铙猱蛲垴瑙讷坭怩铌猊鲵伲旎昵睨鲇鲶黏辇廿埝茑袅嬲脲陧'+
'臬嗫颞蹑蘖咛聍佞甯妞忸狃侬哝耨孥驽' +
'弩胬钕恧衄傩喏搦锘恁';HstrO:= '噢讴瓯耦怄';HstrP:=' 钯拚彷冖葩杷筢俳哌蒎爿蹒蟠泮袢襻滂逄螃脬庖狍匏疱'+
'醅锫帔旆辔霈湓怦嘭堋蟛丕纰邳铍噼芘枇蚍郫陴埤罴蜱貔鼙'+
'庀仳圮擗癖淠媲睥甓犏翩骈胼蹁谝剽缥' +
'螵殍瞟嘌嫖氕丿苤姘嫔颦榀牝娉俜枰鲆钋鄱皤叵钷笸珀掊裒'+
' 攴噗匍璞濮镤溥氆镨蹼';HstrQ:=' 匚袷湫峤趄瞿桤萋嘁槭蹊亓圻岐芪耆颀淇萁骐琦琪祺蛴'+
'綦蜞蕲鳍麒屺芑杞绮綮汔荠葺碛憩葜髂阡芊佥岍悭愆骞搴褰'+
' 钤虔掮箝肷慊缱芡茜倩椠戕戗跄蜣锖锵' +
'镪嫱樯羟襁炝硗跷劁缲荞谯憔鞒樵愀诮妾挈惬箧锲衾芩嗪溱'+
' 噙檎螓锓吣揿圊蜻鲭檠黥苘謦箐磬罄跫銎邛穹茕筇蛩蚯楸鳅'+
' 犰虬俅逑赇巯遒裘蝤鼽糗岖诎祛蛐麴 '+
'黢劬朐鸲蕖磲璩蘧氍癯衢蠼阒觑悛诠荃辁铨筌蜷鬈畎绻悫阕'+
'阙逡郄';HstrR:= '蚺髯苒禳穰荛桡娆荏稔仞轫饪衽肜狨嵘榕蝾糅蹂鞣铷嚅'+
' 濡薷襦颥洳溽缛蓐朊蕤芮枘蚋睿偌箬';HstrS:=' 灬杓丨凵葚仨卅飒脎噻毵糁馓搡磉颡缫臊鳋埽瘙啬铯穑'+
'铩痧裟鲨唼歃霎彡芟姗钐埏舢跚潸膻讪疝骟鄯嬗蟮鳝殇觞熵'+
'垧绱筲艄蛸劭潲猞畲佘厍滠麝诜哂矧谂 '+
'渖胂椹蜃笙眚晟嵊蓍酾鲺饣炻埘莳鲥豕礻贳舐轼铈弑谥筮螫'+
'艏狩绶殳纾姝倏菽摅毹秫塾沭腧澍唰蟀闩涮孀氵妁铄嗍搠蒴'+
'槊厶咝鸶缌蛳厮锶澌汜兕姒祀泗驷俟' +
'笥耜忪凇崧淞菘嵩悚竦嗖溲馊飕锼螋叟嗾瞍薮稣夙涑谡嗉愫'+
'蔌觫簌狻荽眭睢濉谇莘';HstrT:= '沓呔焘钭冂苕扌趿铊溻鳎闼遢榻骀邰炱跆鲐薹肽钛昙郯'+
'覃锬忐钽铴羰镗饧溏瑭樘螗螳醣帑傥耥韬饕洮啕鼗忑忒铽慝'+
'滕绨缇鹈醍倜悌逖裼畋阗忝殄掭佻祧笤 '+
'龆蜩髫鲦窕粜萜餮莛婷葶蜓霆梃嗵仝佟茼砼僮潼恸骰荼酴钍'+
' 堍菟抟疃彖煺暾饨豚氽乇佗坨沱柁砣跎酡橐鼍庹柝箨';//hstrU:=//hstrV:=HstrW:=' 亠娲佤腽崴剜蜿纨芄绾脘菀琬畹罔惘辋魍偎逶隈葳煨薇'+
'囗帏沩闱涠帷嵬炜玮洧娓诿隗猥痿艉韪鲔軎猬阌雯刎汶璺蓊'+
'蕹倭莴喔肟幄渥硪龌圬邬浯蜈鼯仵妩庑忤怃迕牾鹉兀阢杌芴'+
'焐婺痦骛寤鹜鋈';HstrX:=' 郇彐噱荨圩兮穸郗唏奚浠欷淅菥粞翕舾皙僖蜥嬉樨歙熹'+
'羲螅蟋醯曦鼷觋隰玺徙葸屣蓰禧饩阋舄禊狎柙硖遐瑕黠罅氙'+
'祆籼莶跹酰暹娴痫鹇冼猃蚬筅跣藓燹岘苋霰芗缃葙骧庠饷飨'+
'鲞蟓枭哓枵骁绡逍潇箫魈崤筱偕' +
'勰撷缬绁亵渫榍榭廨

你这还是做死了啊，能不能做活啊？期待ing......

jemmylau(枕头) 看清楚
http://expert.csdn.net/Expert/topic/1339/1339519.xml?temp=3.895205E-02也是楼主发的啊

工夫不费有心人，我终于找到了，现在贴出来可以用的，如果没有什么问题的话，楼主可否申请什么精华帖子还是什么帖子（忘了），增加我的信誉分，是一个组件：unit HzSpell;
{ version 4.1}interfaceuses
  Windows, Messages, SysUtils, Classes;type
  THzSpell = class(TComponent)
  protected
    FHzText: String;
    FSpell: String;
    FSpellH: String;
    procedure SetHzText(const Value: String);
    function GetHzSpell: String;
    function GetPyHead: String;
  public
    class function PyOfHz(Hz: String): String;
    class function PyHeadOfHz(Hz: String): String;
  published
    property HzText: String read FHzText write SetHzText;
    property HzSpell: String read GetHzSpell;
    property PyHead: String read GetPyHead;
  end;{$I HzSpDat2.inc}procedure Register;function GetHzPy(HzChar: PChar; Len: Integer): String;
function GetHzPyFull(HzChar: String): String;
function GetHzPyHead(HzChar: PChar; Len: Integer): String;
function GetPyChars(HzChar: String): String;implementationprocedure Register;
begin
  RegisterComponents('System', [THzSpell]);
end;function GetHzPy(HzChar: PChar; Len: Integer): String;
var
  C: Char;
  Index: Integer;
begin
  Result := '';
  if (Len > 1) and (HzChar[0] >= #129) and (HzChar[1] >= #64) then
  begin
    //是否为 GBK 字符
    case HzChar[0] of
      #163:  // 全角 ASCII
      begin
        C := Chr(Ord(HzChar[1]) - 128);
        if C in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then
          Result := C
        else
          Result := '';
      end;
      #162: // 罗马数字
      begin
        if HzChar[1] > #160 then
          Result := CharIndex[Ord(HzChar[1]) - 160]
        else
          Result := '';
      end;
      #166: // 希腊字母
      begin
        if HzChar[1] in [#$A1..#$B8] then
          Result := CharIndex2[Ord(HzChar[1]) - $A0]
        else if HzChar[1] in [#$C1..#$D8] then
          Result := CharIndex2[Ord(HzChar[1]) - $C0]
        else
          Result := '';
      end;
      else
      begin  // 获得拼音索引
        Index := PyCodeIndex[Ord(HzChar[0]) - 128, Ord(HzChar[1]) - 63];
        if Index = 0 then
          Result := ''
        else
          Result := PyMusicCode[Index];
      end;
    end;
  end
  else if Len > 0 then
  begin
    //在 GBK 字符集外, 即半角字符
    if HzChar[0] in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']',
      '.', '!', '@', '#', '$', '%', '^', '&', '*', '-', '+',
      '<', '>', '?', ':', '"'] then
      Result := HzChar[0]
    else
      Result := '';
  end;
end;function GetHzPyFull(HzChar: String): String;
var
  i, len: Integer;
  Py: String;
  function IsDouByte(C: Char): Boolean;
  begin
    Result := C >= #129;
  end;
begin
  Result := '';
  i := 1;
  while i <= Length(HzChar) do
  begin
    if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
      len := 2
    else
      len := 1;
    Py := GetHzPy(@HzChar[i], len);
    Inc(i, len);
    if (Result <> '') and (Py <> '') then
      Result := Result + ' ' + Py
    else
      Result := Result + Py;
  end;
end;function GetHzPyHead(HzChar: PChar; Len: Integer): String;
begin
  Result := Copy(GetHzPy(HzChar, Len), 1, 1);
end;function GetPyChars(HzChar: String): String;
var
  i, len: Integer;
  Py: String;
  function IsDouByte(C: Char): Boolean;
  begin
    Result := C >= #129;
  end;
begin
  Result := '';
  i := 1;
  while i <= Length(HzChar) do
  begin
    if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
      len := 2
    else
      len := 1;
    Py := GetHzPyHead(@HzChar[i], len);
    Inc(i, len);
    Result := Result + Py;
  end;
end;{ THzSpell }function THzSpell.GetHzSpell: String;
begin
  if FSpell = '' then
  begin
    Result := GetHzPyFull(FHzText);
    FSpell := Result;
  end
  else Result := FSpell;
end;function THzSpell.GetPyHead: String;
begin
  if FSpellH = '' then
  begin
    Result := GetPyChars(FHzText);
    FSpellH := Result;
  end
  else Result := FSpellH;
end;class function THzSpell.PyHeadOfHz(Hz: String): String;
begin
  Result := GetPyChars(Hz);
end;class function THzSpell.PyOfHz(Hz: String): String;
begin
  Result := GetHzPyFull(Hz);
end;procedure THzSpell.SetHzText(const Value: String);
begin
  FHzText := Value;
  FSpell := '';
  FSpellH := '';
end;end.

存为HzSpell.pas文件即可

还有一个文件HzSpDat2.inc不能贴，给我发短消息，告诉我邮箱，我发过去楼主不用申请什么帖子了，我没想到HzSpDat2.inc不能贴。

不好意思，我出差了，这几天没回来，直到昨天wks(mex)老兄发来短消息，我才记起这回事来，这就散分---虽然晚了一点，---呵呵，不好意思了。

调试易

@再议：关于二级字库的编码问题，已知汉字，给出汉字拼音首字符---欢迎大家讨论！！！

解决方案 »