深夜求助，delphi中一个问题

Question

如何执行在memo1里面的命令例如下面
ShowMessage('a');
Caption：='a';
abc:='abc';当然上面的是例子 有没有方法可以动态执行呢？

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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;