知道一个对象和他的方法名如何动态调用?

[shuyi]

说白了就是如何调用一个Object1的methed1, 当然不是简单的Object1.methed1()
,用RTTI来类库来实现

[hotdog911]

不懂，帮你up

[王集鹄]

//这样的？～～
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
published
procedure Hello(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
vMethod: TMethod;
begin
vMethod.Code := MethodAddress('Hello');
vMethod.Data := Self;
TNotifyEvent(vMethod)(Self);
TNotifyEvent(vMethod)(Sender);
end;

procedure TForm1.Hello(Sender: TObject);
begin
if Assigned(Sender) then
ShowMessage(Sender.ClassName)
else ShowMessage('nil');
end;

[zhxfzhxf1]

UP

[shuyi]

多谢