问一个调用函数的简单问题。在edit输入函数名调用函数。该如何做

Question

在我程序里有
aaa
bbb（b1 ,b2 :sting ）
ccc
三个函数。
我在输入框输入 aaa 然后就调用aaa 函数。如果 输入bbb（‘bbb’，‘BBB’）就调用bbb（b1，b2） 函数。这个该如何做。
请各位老大帮帮小弟。

Answer 1

必须建立一个对应表
'aaa' -> aaa
'bbb' -> bbb
'ccc' -> ccc根据表格很容易调用

Answer 2

毕竟Pascal是编译语言是不，不是解释语言是不，没有VFP中“&”之类的东西是不，所以……
只能自己建立一个映射表了，说白了就是
if str='aaa' then
  aaa(...);
else if str='bbb' then
  bbb(...);
........
是不，复杂一点的，自己想啦，什么数组啦，过程型变量啦，TStringList啦……随你发挥想象力和编程能力啦！是不？

Answer 3

在Edit 的 OnPress中加入if key = 13 then 然后去判断Edit1框中的字符串呀

Answer 4

我借花献佛啊，感谢pihome 
TForm1 = class(TForm)
published
 procedure abc(Sender: TObject);
end;procedure TForm1.FormCreate(Sender: TObject);
var
 abc: procedure(Sender: TObject) of Object;
begin
 @abc:=Self.MethodAddress('abc');
 if Assigned(@abc) then
   abc(Self);
end;procedure TForm1.abc(Sender: TObject);
begin
 ShowMessage(Sender.ClassName);
end;

Answer 5

 说明对  procedure(Sender: TObject) of Object;
 的声明看你调用的方法了，调用的方法不同，定义也不一样啊