delphi中，如何不超过十行代码计算字符串str1=1+2*(2+8)的值

Question

function funGetValue():string;
begin
  Result := IntToStr(1+2*(2+8));
end;

Answer 1

var
str: stirng;
value: integer;
begin
  str := 'select '+str1 + 'as value1 from 表' ;
  adodataset1.CommandText := str;
  adodataset1.active := true;
  value := adodataset1.fieldbyname('value1').asinteger;  
end.

Answer 2

li_zhifu(东北人) (  ) 信誉：100  2002-2-16 20:02:45  得分:0  
  
  唉，你们都是怎么了，这个问题M$已经有了一个解决方案了。在Win2K下在Delphi中Import  ActiveX　Control，选Microsoft  Script  Control　1.0，安装，在应用程序中 
 
ScriptControl1.Language:='JavaScript'; 
 
ShowMessage(ScriptControl1.Eval('2*3+5')); 
就可以了。 
在Win98中可以把Win2K下的msscript.ocx拷过来用。 
此控件可以进行复杂的运算，如支持'('，组合运算等。甚至可以对整型数进行位运算。