end else
  begin
    timer1.Enabled :=false;
    RTrans.Lines.SaveToFile(''''Temp.txt'''');
  end;
end;

//读取单词列表到Mlist中
procedure TForm1.Button2Click(Sender: TObject);
begin
  if od.Execute then
    MList.Lines.LoadFromFile(od.FileName );
end;

//转换功能，因为RTrans中得到的翻译中，音标还不可以正确的显示
//必须先安装金山词霸中的Font目录中的Phonetic Plain字体
//实现音标的正确显示
procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;
  start,ends:integer;
begin
  RConv.Clear;
  for i:=0 to RTrans.Lines.Count-1 do
  begin
    richedit3.Text :=RTrans.Lines[i];
    start:=pos(''''['''',richedit3.Text);//查找音标位置，音标在[]中
    if start>0 then
    begin
      ends:=pos('''']'''',richedit3.Text);
      richedit3.SelStart :=start;
      richedit3.SelLength :=ends-start-1;
      richedit3.SelAttributes.Name :=''''Kingsoft Phonetic Plain'''';
    end;
    richedit3.SelectAll ;
    richedit3.CopyToClipboard ;
    RConv.PasteFromClipboard;
    application.ProcessMessages;
  end;
end;

//程序退出
procedure TForm1.N3Click(Sender: TObject);
begin
  application.Terminate ;
end;

//复制 功能
procedure TForm1.N6Click(Sender: TObject);
begin
  RConv.SelectAll ;
  RConv.CopyToClipboard;
end;

//停止转换
procedure TForm1.N8Click(Sender: TObject);
begin
  timer1.Enabled :=false;
end;

end.

好了，到此为止，全部的程序就设计完毕了。

如何运行：
 　　保证“金山词霸 2002”和该程序一起运行，如果你使用其他版本的词霸的话，请自行更改其中的查找句柄代码，以实现支持其他版本。
　　好了，我现在已经成功将这600个单词翻译完成，并用Word打印到纸上了，非常的快捷，如果你还有什么好的建议，欢迎回复！

如何获得编译好的可执行程序和源代码：
　　可以给我发电子邮件：redlegend@163.com
　　或者登陆我的站点留言：http://redlegend.51.net

上一页  [1] [2]