Gibt es etwas wie "FindProcedure"?

[Sir Rufo]

Es gibt da so nette Sachen wie

Delphi-Quellcode:

ICommand = interface
  function CanExecute : Boolean;
  procedure Execute;
end;

Wenn du jetzt eine Instanz hättest, die dir zu einem String so ein Interface liefert

Delphi-Quellcode:

TCommandManager = class
  procedure RegisterCommand( const Name : string; Command : ICommand );
  property Command[const Name : string] : ICommand;
end;

dann lautet dein OnClick-Handler so

Delphi-Quellcode:

procedure TForm.KomponenteClick( Sender : TObject );
begin
  MyCommandManager.Command[ Vorgabe ].Execute;
end;