Funktion über ihren Namen als String aufrufen

[Sir Rufo]

Ja, warum denn nicht ...

Delphi-Quellcode:

procedure CallFunction( const AName : string; AParams : array of const; AResult : Variant );
var
  LName : string;
begin
  AResult := Null;
  LName := LowerCase( AName );
  if LName = 'tollefunktion' then
    tollefunktion
  else if LName = 'nochtollerefunktion' then
    nochtollerefunktion
  else
    raise Exception.CreateFmt( 'Funktion "%s" nicht gefunden!', [AName] );
end;