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

领测软件测试网

end; 


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

begin 

alr:=1; 

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

continue; 

end; 


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

begin 

alr:=1; 

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

continue; 

end; 

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