用Delphi 6编程实现自动标注汉语拼音

领测软件测试网

// 取得组字字根信息, dwGCL的值必须用上次呼叫ImmGetConversionList得到的返回值作为参数 

dwGCL := ImmGetConversionList(hKB,0,pchar(sChinese),@szBuffer, dwGCL,GCL_REVERSECONVERSION); 


if dwGCL > 0 then 

begin 

iStart := byte(szBuffer[24]); 

for i := iStart to iStart + iMaxKey * 2 do 

AppendStr(Result, szBuffer[i]); 
end; 

end; 

begin 

tmp:=0; 

if not FileExists(Edit1.text)then 

begin 

ShowMessage(’请你选定一个文件或你’#13#10’选择的文件不存在！’); 

exit; 

end; 


AssignFile(F1, edit1.Text); 

Reset(F1); 

AssignFile(F2, edit2.Text); 

Rewrite(F2); 

文章来源于领测软件测试网 https://www.ltesting.net/