深夜求助，delphi中一个问题

[wakanchan]

如何执行在memo1里面的命令

例如下面
ShowMessage('a');
Caption：='a';
abc:='abc';

当然上面的是例子 有没有方法可以动态执行呢？

[s11ss]

没有

[haitao]

脚本化。。。。。。。。

应该流传有几个pascal脚本引擎了

[Terony]

你可以设计一种自己的脚本语言，然后用Delphi来解释。当然，如果问题复杂，你也可以现有的脚本组件。我建议自己动手，丰衣足食。
多说一点，在具体实现时，不要使用过于复杂的表示方式。如ShowMessage /a程序看到了ShowMessage 就用ShowMessage或者MessageBox函数把后面"/"后的内容显示出来,或者连"/"都不用更简洁，软件的使用者也更好记忆。一定要让自己的程序用更少的代码去分析，要让使用者更容易学习。使用者只在乎功能是否合格，使用是否便捷。

[广州佬]

使用这个就能解决你的问题：http://download.csdn.net/tag/paxCompiler

[dongmei757]

if pos('ShowMessage('a');',memo1.text) <> 0 then
begin
showmessageShowMessage('a');
end;

if pos('Caption：='a';',memo1.text) <> 0 then
begin
label1.caption := a;
end;