我的问题描述如下:
Var
StrFormula:String;
ResultValue:Integer;
Begin
StrFormula:='8-7'; ResultValue的值我想通过StrFormula来计算,也就是我想ResultValue:=8-7
End;问题就是怎么把StrFormula这个字符串变成一个表达式啊。
Var
StrFormula:String;
ResultValue:Integer;
Begin
StrFormula:='8-7'; ResultValue的值我想通过StrFormula来计算,也就是我想ResultValue:=8-7
End;问题就是怎么把StrFormula这个字符串变成一个表达式啊。
应该这样
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;
这里没有表。只是一个字符串。
你的strtoint方法不行。我知道写函数可以解决问题,我在找比写函数更简单的方法。
不涉及数据库操作的时候,delphi里面可以用select吗?