在 Delphi 中调用 JavaScript(2)

首先非常感谢万老师的回复!

万老师,你给我的这个例子在前几天我有在你的博客中看到过, 但还不是我需要的, 我要的是一个类似函数的东西,或者直接说函数也不为过。

假如存在这样的函数fun(str: string; str1: array of string; value: arrar of extended): extended;则调用此函数如下:

(1) fun('x^2 + 3', 'x', 1.5)则相当于求 1.5 ^ 2 + 3的值

(2) fun('sin(x) + tan(x) - exp(x) + abs(x)', 'x', 1.2)则相当于求

sin(1.2) + tan(1.2) - exp(1.2) + abs(1.2) 的值

(3) fun('x + y + sin(x * y +2) +1', str1, value), 其中str1 是字符串数组,str1[1] := 'x', str2[2] := 'y', 即说明表达式中 x 和 y 是变量; 而参数value也是个数组, value[1] := 0.2, value[2] := 0.3, 也就是说明变量x,y的值依次为: 0.2、0.3, 那么调用此函数则相当于求: 0.2 + 0.3 + sin(0.2*0.3 + 2) + 1 的值.

万老师能明白我的意思吗?... 我要的不是你给我的那个例子的那种形式...你能单独的做个例子给我吗?现在我自己虽然也开始用分解字符串的方法去做,但感觉非常麻烦,而且很担心到最后要是能做出来, 由于计算量大,而实际调用时会很慢,简单的说就是由于计算量大而影响了计算机的执行速度, 这也是不足取的... 我急需要这块知识,麻烦万老师了!

谢谢!

回复 引用

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/