怎么把字符串变为表达式? 比如我要把(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分钟通话, 中国电信官方发货 先看看编译原理,自己做可能困难,利用一些现成的代码改进比较好,delphi在这方面的东西我了解不多,用C的话,可参考的有 bison,flex,cint,pcc,tcc(tiny cc, not borland turbo c)等等 晕,RTTI的东西,怎么可能在编译时用呢 晕,RTTI的东西,怎么可能在编译时用呢 参考代码function 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; 很奇怪的线程问题请教? Delphi操作剪贴板 时间计算的问题,请指教 關於日期計算 纪念帖子,第一份工资 请教一个dbgrid中行数的统计方法~~ 关于SocketAPI的初始化问题 各位大哥,很急的问题,我还有1个多小时的时间。关于函数参数传递问题。 新手提问:请问如何声明及使用OCX控件?先谢了 sundayboys、rh等各位请冷静,不要再散分了!我的已经恢复了! delphi中有没有将字符串倒排的函数 怎么把字符串变为表达式?
delphi在这方面的东西我了解不多,
用C的话,可参考的有 bison,flex,cint,pcc,tcc(tiny cc, not borland turbo c)等等
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;