Delphi写的中英文翻译程序源代码,好像调用的网址失效了,现在无法翻译了,这个程序和网络有关,同时实现对字符的控制,面向初学者。下面是核心的代码: procedure TForm1.BitBtn4Click(Sender: TObject); var str:string; mystr:widestring; begin mystr:= leftstr(edit1.Text,2); str:= leftstr(edit1.Text,2); if length(str)= length(mystr) then showMESSAGE('您输入的英文,将翻译成汉语