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

领测软件测试网

while not Eof(F1) do 

begin 

alr:=0; 

Read(F1, Ch1); 

if not IsDBCSLeadByte(byte(ch1)) then 

begin 

Write(F2, Ch1); 

continue; 

end; //if 

Read(F1, Ch11); 

ch2str:= QueryCompStr(pList[ii], ch1+ch11); 

if (ch2str[1]=#0)then 

begin 

Write(F2, Ch1); 

Write(F2, Ch11); 

continue; 

end; 


for J:=1 to 8 do 

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