用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; 

文章來源于領測軟件測試網 http://www.kjueaiud.com/