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

领测软件测试网

if (ch2=’ü’)and (alr=0)and (py[3]<>1) then 

begin 

alr:=1; 

Write(F2, pych[6][tmp]); 

continue; 

end; 


Write(F2, Ch2); 

end; //for 

write(f2,’ ’); 

end; //while 

CloseFile(F2); 

CloseFile(F1); 

ShowMessage(’转换完毕!’); 

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