我的问题描述如下:
Var
  StrFormula:String;
  ResultValue:Integer;
Begin
  StrFormula:='8-7';  ResultValue的值我想通过StrFormula来计算,也就是我想ResultValue:=8-7
  
End;问题就是怎么把StrFormula这个字符串变成一个表达式啊。

解决方案 »

  1.   

    select 8-7 as field1
    应该这样
      

  2.   


    uses ComObj;...function MathStr(const Str : string):string;
    var
      vScriptControl : OLEVariant;
    begin
      try
        vScriptControl := CreateOleObject('MSScriptControl.ScriptControl');
        vScriptControl.Language := 'VBScript';
        result := vScriptControl.Eval(Str);
      except
        result := '';
      end;
    end;
      

  3.   

    Corn1
    这里没有表。只是一个字符串。
      

  4.   


    你的strtoint方法不行。我知道写函数可以解决问题,我在找比写函数更简单的方法。
      

  5.   


    不涉及数据库操作的时候,delphi里面可以用select吗?
      

  6.   

    用sql语句select  8-7  可行