求助 谁知道怎么可以知道一个汉字的拼音谁有现成的算法和原码可以给我看看吗?用DELPHI写的谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 超级猛料中找到的内容:反查汉字拼音 variHandleCount: integer;pList: array[1..nHKL_LIST] of HKL;szImeName: array[0..254] of char;i: integer;sFound: string;beginlstComposition.Items.Clear;iHandleCount := GetKeyboardLayoutList(nHKL_LIST, pList);for i := 1 to iHandleCount dobeginif ImmEscape(pList[i], 0, IME_ESC_IME_NAME, @szImeName) > 0 thenbeginsFound := QueryCompStr(pList[i], edtExam.Text);if sFound <> '' thenlstComposition.Items.Add(StrPas(szImeName) + ': ' + sFound);end;end;**************金山词霸(2.0-2000版本)内有gb2py.idx和gbk2py.idx,内有国标GB、GBK的每个汉字的拼音和声调。可用拿来一用。下面上Delphi写的gb2py函数。function gb2py(hanzi:pchar):pchar;varSfile:Tmemorystream;pos,temp,ipos,len:integer;py:array[0..20] of char;beginpos:=($fe-$a1)*(ord(hanzi[0])-$b0)+ord(hanzi[1])-$a1;sfile:=Tmemorystream.create;sfile.loadfromfile('C:Filespy.idx');//data:=sfile.memory;sfile.Seek($1608+pos*4,soFromBeginning);sfile.Read(ipos,4);sfile.Read(temp,4);len:=temp-ipos;sfile.Seek(ipos+1,soFromBeginning);sfile.Read(py,len);py[len-1]:=#0;sfile.Free;result:=py;end; 这个是什么控件完成的?还是直接Canvas画图的? adoQuery 与 Sort 与 Locate 怎样把RadioGroup1或DBRadioGroup1中显示的单选项分成几列来显示,在线急,解决了马上给分 在线等待高手赐教,有关图形报表的问题。。。。。。进来看看,也许您可以帮帮我呢。。。谢谢了。 求多层实例 最好有回调功能!(小5进来再讲讲明白) 密码框输入后如何设置让它显示为星号 怎么知道.dll里面有哪些函数可以调用 请教tcalendar控件的用法? 小弟以前用clientdateset提交到后台很好,可是今天。。。 关于perform的问题 求助高手(急) help
variHandleCount: integer;pList: array[1..nHKL_LIST] of HKL;szImeName: array[0..254] of char;i: integer;sFound: string;beginlstComposition.Items.Clear;iHandleCount := GetKeyboardLayoutList(nHKL_LIST, pList);for i := 1 to iHandleCount dobeginif ImmEscape(pList[i], 0, IME_ESC_IME_NAME, @szImeName) > 0 thenbeginsFound := QueryCompStr(pList[i], edtExam.Text);if sFound <> '' thenlstComposition.Items.Add(StrPas(szImeName) + ': ' + sFound);end;end;**************金山词霸(2.0-2000版本)内有gb2py.idx和gbk2py.idx,内有国标GB、GBK的每个汉字的拼音和声调。可用拿来一用。下面上Delphi写的gb2py函数。function gb2py(hanzi:pchar):pchar;varSfile:Tmemorystream;pos,temp,ipos,len:integer;py:array[0..20] of char;beginpos:=($fe-$a1)*(ord(hanzi[0])-$b0)+ord(hanzi[1])-$a1;sfile:=Tmemorystream.create;sfile.loadfromfile('C:Filespy.idx');//data:=sfile.memory;sfile.Seek($1608+pos*4,soFromBeginning);sfile.Read(ipos,4);sfile.Read(temp,4);len:=temp-ipos;sfile.Seek(ipos+1,soFromBeginning);sfile.Read(py,len);py[len-1]:=#0;sfile.Free;result:=py;end;