用Delphi 6編程實現自動標注漢語拼音

領測軟件測試網

exit; 

end; 

end; 

ShowMessage(’請你安裝"微軟拼音輸入法"!’); 

end; 



// 選擇需要標注拼音的文件： 

procedure TForm1.BitBtn1Click(Sender: TObject); 

begin 

OpenDialog1.Title := ’選擇需要轉換的文件’; 

if OpenDialog1.Execute then 

Edit1.Text := OpenDialog1.FileName; 

Edit2.Text := ChangeFileExt(OpenDialog1.FileName, ’.py’); 

end; 


// 拼音文件保存到 

procedure TForm1.BitBtn3Click(Sender: TObject); 

begin 

OpenDialog1.Title := ’轉換到：’; 

if OpenDialog1.Execute then 

Edit2.Text := OpenDialog1.FileName; 

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