根据汉字求拼音的问题 怎样才能由汉字求出他的拼音?根据国标?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 太长了要的话我发段代码给你[email protected] 转至超级猛料: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; 动态数组释放问题,delphi释放内存问题 FastReport如何动态设置页? delphi 字符串 有乱码,请教高手 紧急求救谁有delphi4安装程序 请教有关ehlib3.5的问题: 使用insert插入的问题 如何改变Form在不被选中的状态下的标题的字体颜色? 求delphi数据库的源程序? *****谁有制作MDI主窗体背景的控件**** 能够倒序读取文件? OLE中的問題 三层结构服务器运行后,程序死了.
[email protected]
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;