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;