急用,谢谢各位了我的email [email protected]我的QQ : 13707033

解决方案 »

  1.   

    http://algorithm.myrice.com/resources/code_center/algorithm/expression/expression.htm
      

  2.   

    我这里下载就告诉我该网页 不存在,麻烦您,能不能给我email一份阿,  [email protected]
      

  3.   

    To:fim(镇江DJ)(DJ=DelphiJava) 
    能给我一份吗?
    [email protected]
      

  4.   

    哈哈,没必要的,如下就可以搞定function Eval(expStr: string): string;
    var
        js: OleVariant;
    begin
        js := CreateOleObject('ScriptControl');
        js.Language := 'JavaScript';
        Result := js.Eval(expStr);
        js := Unassigned;
    end;