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

领测软件测试网

Label1: TLabel; 

BitBtn1: TBitBtn; 

procedure BitBtn1Click(Sender: TObject); 

procedure FormCreate(Sender: TObject); 

procedure BitBtn3Click(Sender: TObject); 

procedure BitBtn2Click(Sender: TObject); 

public 

iHandleCount: integer; 

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; 

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