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

领测软件测试网

begin 

if (ch2str[j]<’6’)and (ch2str[j]>’0’) then 

tmp:=strtoint(ch2str[j]); 

end; 


for j:=1 to 6 do 

py[j]:=0; 

//以下是判断加拼音的位置，注意ui和iu加声调的方式 

for j:=8 downto 1 do 

begin 

if ch2str[j]=’a’ then py[1]:=1; 

if ch2str[j]=’o’ then py[2]:=1; 

if ch2str[j]=’e’ then py[3]:=1; 

if (ch2str[j]=’i’) and (py[5]<>1)then py[4]:=1; 

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