如何将一个字符串。。转换成一个对象的名字。。例如:(200分)

  • 主题发起人 主题发起人 yobdrow
  • 开始时间 开始时间
Y

yobdrow

Unregistered / Unconfirmed
GUEST, unregistred user!
将“functionname"转换成一个可处理的函数名字
 
看了这个你就明白了:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1289838
 

FindComponent
 
先registerclass
然后再findcomponent
 
等待更高的办法
 
//等待更高的办法
倒~~
我那个办法不行?
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1289838
 
那个当然行了。。看有没有别的方法
 
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;
 
多人接受答案了。
 
后退
顶部