帮帮我(100分)

  • 主题发起人 主题发起人 ximingli
  • 开始时间 开始时间
X

ximingli

Unregistered / Unconfirmed
GUEST, unregistred user!
请帮帮我做一个计算机的程序~谢谢~
 
请楼主说清楚~谢谢~
 
是“计算器”吧!
计算机中作计算机?骇客帝国!
 
呵呵,楼主说话真是强~~
 
怕怕的说。
 
//copy的,你改改就行了,可进行混合计算
uses comobj;
function calculate(express:string):string;//进行混合计算的函数
var
vscript:variant;
begin
vscript:=createoleobject('scriptcontrol');
vscript.language:='javascript';
result:=vscript.eval(express);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=calculate(edit1.text);
end;
 
干嘛非要做一个,直接在程序里调用电脑里的计算器不就行了!
 
后退
顶部