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

领测软件测试网

pList : array[1..20] of HKL; 

szImeName : array[0..254] of char; 

II : integer; 

end; 


const 

pych: array[1..6,1..5] of string[2]= 

((’ā’, ’á’,’ǎ’,’à’,’a’),(’ō’, ’ó’,’ǒ’,’ò’,’o’), 

(’ē’, ’é’,’ě’,’è’,’e’),(’ī’, ’í’,’ǐ’,’ì’,’i’), 

(’ū’, ’ú’,’ǔ’,’ù’,’u’),(’ǖ’, ’ǘ’,’ǚ’,’ǜ’,’ü’)); 


var 

Form1: TForm1; 


implementation 


{$R *.DFM} 


procedure TForm1.FormCreate(Sender: TObject); 

var 

i: integer; 

begin 

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