Delphi中,如何根据输入的字符串来调用相应的函数？

Question

假如动态库DllLib.Dll中有一个函数CallFunc(FuncName,pParameter: pchar): Olevarint;此函数作为一个接口，供其他程序调用；同时，DllLib.Dll中还有其他函数,FunA(pParameter: pchar),FunB(pParameter: pchar),FunC(pParameter: pchar),现在要求如下，外部程序调用CallFunc('FunA','输入参数'),要在CallFunc中调用FunA(pParameter: pchar)，如果外部程序调用CallFunc('FunB','输入参数'),要在CallFunc中调用FunB(pParameter: pchar);请问,CallFunc函数该怎么写？

Answer 1

function CallFunc(FuncName,pParameter: pchar): Olevarint;
begin
  if FuncName = 'FunA' then FunA(pParameter)
  else if FuncName = 'FunB' then FunB(pParameter)
  else if FuncName = 'FunC' then FunC(pParameter);
  ...
end;

Answer 2

应该加上那些函数吧
function CallFunc(FuncName,pParameter: pchar): Olevarint;
  funA(pParameter: pchar): Olevarint;
  begin
    ...
  end;
  funB(pParameter: pchar): Olevarint;
  begin
    ...
  end;
  funC(pParameter: pchar): Olevarint;
  begin
    ...
  end;
begin
   if FuncName = 'FunA' then FunA(pParameter)
   else if FuncName = 'FunB' then FunB(pParameter)
   else if FuncName = 'FunC' then FunC(pParameter);
   ...
end;

Answer 3

http://blog.csdn.net/SmallHand/archive/2009/06/22/4290004.aspx