Asignacion función sabiendo nombre
 

Hola a todos,
estoy dándole vueltas a un asunto, y aunque sé que hay información por ahí, no logro dar con el asunto.

Me gustaría poder asignar en tiempo de ejecución una función/procedimiento a un evento, sabiendo el nombre de la función.

Doy por supuesto que la función coincidirá en cuanto a parámetros y tipos.

Para vuestra información, no estoy nada puesto en punteros a funciones, ... . Lo digo porque creo que la baina va por ahí.

Gracias de antemano por vuestra ayuda

Un saludo

Una forma sencilla sería:

Código Delphi [-]
procedure TForm.OnEditChange1(Sender: TObject);
begin
  ShowMessage('OnChage1 - ' + TEdit(Sender).Text);
end;

procedure TForm.OnEditChange2(Sender: TObject);
begin
  ShowMessage('OnChage2 - ' + TEdit(Sender).Text);
end;

procedure CambiaEvento(Nombre : string)
begin
   if (Nombre = 'OnEditChange1') then
      Edit.OnChange := OnEditChange1;
   if (Nombre = 'OnEditChange2') then
      Edit.OnChange := OnEditChange2;
end;