问一个超级难题----关于自动计算公式 请高手帮帮我

Question

我想做一个自动计算公式的程序。想得到temp的实际数据，不知代码如何实现。
...
var
 xm1:real;
 xm2:real;
 temp:string;begin
 temp:='xm1+1000-xm2/10';  //temp的公式可以更改
 xm1:=1000;
 xm2:=1000;
 edit1.text:=temp;end;

Answer 1

Component - Install Activex -
Microsoft Script Control 1.0ScriptControl1.Language := 'JScript';
showmessage(ScriptControl1.Eval('var  x=100.45,y=24.23,z=34.3 ; x*y+z*(4+3);'));

Answer 2

如果我想连x,y,z的数值都是动态添加怎么处理?
我把程序改成如下不能编译var
 x1,y1,z1:real;
begin
x1:=100.45;
y1:=24.23;
z1:=34.3 ; 
ScriptControl1.Language := 'JScript';
showmessage(ScriptControl1.Eval('var  x=d%,y=d%,z=d% ; x*y+z*(4+3);',x1,y1,z1));...

Answer 3

format('var  x=d%,y=d%,z=d% ; x*y+z*(4+3);',[x1,y1,z1]);

Answer 4

ljmanage(过客) 给我一份；
收到后单独开帖送分。
[email protected]

Answer 5

谢谢，我很需要，请发给我
[email protected]