用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); 

文章來源于領測軟件測試網 http://www.kjueaiud.com/