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

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