如何将一个字符串转换成一个对象的名字

Question

如：将“functionname"转换成一个可处理的函数名字
 

Answer 1

type
    TProcedure = procedure(Test: string) of object;  procedure ExecuteRoutine(Obj: TObject; Name, Param: string);
  var
    PMethod: TMethod;
    AProcedure: TProcedure;
  begin
    PMethod.Data := Pointer(Obj);
    PMethod.Code := Obj.MethodAddress(Name);
    if Assigned(PMethod.Code) then
    begin
      AProcedure := TProcedure(PMethod);
      AProcedure(Param);
    end;
  end;

Answer 2

将一个字符串转换成一个对象的名字   可以 ;  function FindComponent(const AName: string): TComponent;  ShowMessage(TADOConnection(FindComponent('ADOConnection1')).ConnectionString) ;
 
  将“functionname"转换成一个可处理的函数名字 ?  不可能