如何用函数名字符串来调用函数

  
比如我有一些函数（过程），我需要掉用他们，能不能通过函数名字符串来调用？有点儿象宏替换的意思！

以下的只能对于过程或不带参数的函数，如果函数带了参数就不能实现了，谁能解决??

type

{$M+}

TMyObj = class

published

function CommandOne: Integer;

// function CommandEx(i:integer): Integer; 这个带了参数就会出现错误

end;

{$M-}

function DoCommand1(const Command: string): Integer;

var

CommandProc: function: Integer of object;

begin

TMethod(CommandProc).Code := TMyObj.MethodAddress(Command);

if Assigned(TMethod(CommandProc).Code) then Result := CommandProc;

end;

function TMyObj.CommandOne: Integer;

begin

result:=1;

end;

{function TMyObj.CommandEx(i:integer): Integer;

begin

result:=i;

end;}

procedure TForm1.Button2Click(Sender: TObject);

begin

DoCommand1('CommandOne');

//DoCommand1('CommandEx(9)'); 这个就会出错

end;

--

WBR, LVT.

PS: A second method by V.Titov :

uses

TypInfo;

type

TCommand = (CommandOne, CommandTwo, CommandThree, CommandFour);

function DoCommand2(const Command: string): Integer;

begin

Result := 0;

case TCommand(GetEnumValue(TypeInfo(TCommand), Command)) of

CommandOne: ..;

CommandTwo: ..;

CommandThree: ..;

CommandFour: ..;

end;

end;

*******************

回复人： chinalian(连长) ( ) 信誉：100 2002-4-20 14:08:16 得分:0

函数指针：

TVisitedEvent = function(FID: integer):integer of object;

你增加如下

function DoCommand2(const Command: string；id: integer): Integer;

var

CommandProc: function(id: interger): Integer of object;

begin

TMethod(CommandProc).Code := TMyObj.MethodAddress(Command);

if Assigned(TMethod(CommandProc).Code) then Result := CommandProc(id); //注意参数

end;

应该就可以调用带参数的。