uses ComObj ;
{$R *.dfm}

function Eval(expStr: string): string;
var
    js: OleVariant;
begin
    js := CreateOleObject('ScriptControl');
    js.Language := 'VBScript';
    Result := js.Eval(expStr);
    js := Unassigned;
end;

procedure TForm1.FormCreate(Sender: TObject);
var a,b,c,d:integer;
begin
  a:=2900;
  b:=434;
  c:=200;
  d:=34;
  showmessage(Eval(format('((%d+%d)*%d)+(%d+%d)*%d',[a,b,c,c,d,c])));
end;

呵呵，如果你的程序能连数据库的话，用一个select语句就可以得到结果了
比如
s:='23*4+15-26';
adoquery1.sql.add('select '+s);
然后open
showmessage(adoquery1.fields[0].asstring)看看就知道了
给分吧，哈哈

这样不行的，不能通过其他途径来实现，要完整的写个算法。
可能是我操做的失误，发了两次，不过如果能正确解答的话，我照样发分

Google上能找到的

http://lysoft.7u7.net

不通过其他方法那可累了

这种算法网上很多的，用二叉树也可以。两边扫描，一边分析，一边计算。
记得有带源码的这种控件，你可以找个来看看