Edit 中输入10*5*3 怎么计算得出后的值？

2012-04-08

Edit 中输入10*5*3 如何计算得出后的值？？？是不是用截取方式？[解决办法]Delphi(Pascal) codeuses ComObjpr

Edit 中输入10*5*3 如何计算得出后的值？？？
是不是用截取方式？

[解决办法]

Delphi(Pascal) code

uses ComObj;procedure TForm1.FormCreate(Sender: TObject);var  V: Variant;begin  V := CreateOleObject('MSScriptControl.ScriptControl');  V.Language := 'vbscript';  SHowMessage(V.Eval('10*5*3'));  V := unassignedend;
[解决办法]
Delphi(Pascal) codeuses ComObj;Function Runjava(Express:string):Double;var  V: Variant;begin  V := CreateOleObject('MSScriptControl.ScriptControl');  V.Language := 'javascript';  try  result:=V.Eval(Express);  except    result:=0;  end;end;