请问各位高手可不可以让一串字符串成为代码执行？？？下面的代码怎么让它执行起来？？？

Question

var str:string;
...
procedure Tform1.Button1Click(Sender: TObject);
var r,x,y:string;
begin
  ...
  str:='r:=x+y-x*2 . . .'; //str字符串内容是在程序执行的过程中，动态生成的
  ...
end;procedure Tform1.Button2Click(Sender: TObject);
var i:integer
begin
  ...
  i:=执行str中的'r:=x+y-x*2 . . .'语句的结果;
  ...
end;请问各位高手怎么让字符串中的语句执行起来？？？

Answer 1

建議你改用VFP之其宏替換吧，DELPHI中不提供此類功能。

Answer 2

r:='x+y-x*2 . . .'; //str字符串内容是在程序执行的过程中，动态生成的
str:=r;

Answer 3

错了是：r:=x+y-x*2 . . .; //str字符串内容是在程序执行的过程中，动态生成的
str:=r;

Answer 4

用全局变量var str:string;r,x,y: int;和str:=StrToInt(x)+StrToInt(y)+StrToInt(x)*2;

Answer 5

用过 DC 系列组件没有？？ hehe^^支持 pascal 语法....你去 51Delphi 找找看

Answer 6

同意 CDSoftwareWj，有几个组建都支持标准的Delphi语法。

Answer 7

TO  Delphi_Li(Delphi Li) ：能否指点一二啊；）？

Answer 8

以前做过表达式解析的类，但是我写的也只能处理单一个表达式。在Dev组件中，
有一个组件是可能执行DELPHI中的大部分的语法和函数的，
并且那个组件的功能支持扩展的，
建议你去看看。