怎么把字符串变为表达式? 比如我要把(a[i1][nnn] mod 2=1)and(a[i1][nnn+1] mod 2=0) 这个字符串 变为表达式?用户输入这个字符串(当然里面的数组我已经定义了)我怎么就转为为编程代码(a[i1][nnn] mod 2=1)and(a[i1][nnn+1] mod 2=0) 呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 参考代码uses ComObjfunction TForm1.Eval(expStr: string): string;var js:OleVariant;begin js:=CreateOleObject('ScriptControl'); js.Language:='JavaScript'; Result:=js.Eval(expStr); js:=Unassigned;end;procedure TForm1.Button1Click(Sender: TObject);var s:string;begin s:=self.Eval('123+234+50'); self.Label1.Caption:=s;end; 如何在delphi7中dbgrid中使用键盘上的方向键 Showmessage 弹出窗体的标题如何修改啊 高薪诚招:DELPHI数据库开发(急!) cxgrid获取当前行所在的某一列的属性 急死了,一点头绪都没有 求fastreport3.0中动态赋值的解决方法! 怎样在DLL种共享TDATABASE 关于UNIX下跑三层应用服务器的问题,高手请进! delphi 两个笨问题 怎么把字符串变为表达式? fastreport 4.0 调用函数报错的问题?
ComObjfunction TForm1.Eval(expStr: string): string;
var
js:OleVariant;
begin
js:=CreateOleObject('ScriptControl');
js.Language:='JavaScript';
Result:=js.Eval(expStr);
js:=Unassigned;
end;procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=self.Eval('123+234+50');
self.Label1.Caption:=s;
end;