OnExecute din�mico

Question

Pessoal, estou num beco sem sa�da. Tenho um objecto (digamos, um menu) e um procedimento chamado Teste.Para o menu escrevo o seguinte:MenuTeste.onexecute := Teste;At� aqui n�o h� problema. O que prete...

Cebikyn · Answer

Voc� poderia chamar a procedure pelo nome:

function ExecProc(MyProcStr : String):boolean;
Var
  MyProc : procedure of object;
Begin
  TMethod(myProc).data:=self;
  TMethod(MyProc).code :=MethodAddress(MyProcStr);
  result:=true;
  if not Assigned(MyProc) Then
    result:=false
  else
    MyProc;
end;

Passe o nome da procedure para a fun��o a cima e ela executar� a procedure para voc�.

Um detalhe: s� funciona para procedures tipo [i:5dabaa6c10]published[/i:5dabaa6c10]

Bacalhau · Answer

Cebikyn, foi em cheio!!! Muito obrigado. Estou ainda com um pequeno obst�culo, mas o objectivo principal foi conseguido.

Agora tenho uma base comum para todo o meu software, executando procedures, fun��es em dlls, outros execut�veis, tuudo!

A coisa ainda est� meio feia, mas quando for consistente, envio uma c�pia. S� preciso saber o mail.

abra�o do bacalhau

F�rum OnExecute din�mico #176986