Funktion über ihren Namen als String aufrufen

[Jumpy]

Hallo,

in manchem VBA kann man mit einem Funktionsnamen der als String vorliegt, diese Funktion aufrufen:
CALL("MeineFunktion"). Weiß gerade nicht wie/ob man dabei auch Parameter übergeben kann, ist aber auch egal, da ich das nur ohne Parameter brauche.

Die Frage ist natürlich, ob das auch in Delphi irgendwie geht.

P.S.: Ich hab zwar wie ich gerade sehe überall Funktion geschrieben, meinte allerdings Prozedur.

[DeddyH]

Sofern es sich um Methoden handelt, wäre evtl. etwas mit TMethod und MethodAddress zu machen.

[Nersgatt]

Mit Deinem Delphi 6 wird das so wohl nicht gehen. Bei neueren Versionen (ich glaub ab 2010) gibt es die RTTI.

[mjustin]

Zitat von Nersgatt:

Mit Deinem Delphi 6 wird das so wohl nicht gehen. Bei neueren Versionen (ich glaub ab 2010) gibt es die RTTI.

Ab 2010 gab es Extended RTTI, davor gab es ('einfache') RTTI, in Delphi 6 kann man damit zum Beispiel published Properties über ihren Namen ansprechen und Werte lesen/schreiben - Methoden mit Parametern werden erst mit Extended RTTI über Namen ansprechbar, das geht in Delphi 6 noch nicht.

[Jumpy]

OK. Wäre denn folgender Workarround denkbar / sinnvoll:

Es gibt eine Funktion oder eine Klasse mit u.a. einer Funktion. Dieser wird der Name einer anderen Funktion als String übergeben und diese startet dann über ein "If...then...else usw."-Konstrukt die gewünschte Funktion.
Die Funktion muss natürlich alle diese Funktionen kennen und es wäre ggf. auch möglich Parameter zu übergeben (ist aber z.Zt. nicht wichtig).
Also so etwas wie eine Factory für Funktionen?

Zum Hintergrund: Bestimmte Funktionen sollen hintereinander ablaufen, die Ablaufreihenfolge soll aber veränderbar sein (über eine Tabelle gesteuert).

[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;

[Jumpy]

Prima, danke für die Bestätigung.

[Der schöne Günther]

Ich habe zwar das Delphi Language Coding Standards Document oder den Object Pascal Style Guide zwar noch nicht durchgeackert. Aber darf man trotzdem fragen, warum eigentlich das A als Prefix?

[Bummi]

wenn Du den Link schon angibst:

Zitat:

The "A" prefix is a convention to disambiguate when the parameter name is the same as a property or field name in the class.

[Sir Rufo]

Zitat von Der schöne Günther:

Ich habe zwar das Delphi Language Coding Standards Document oder den Object Pascal Style Guide zwar noch nicht durchgeackert. Aber darf man trotzdem fragen, warum eigentlich das A als Prefix?

Weil es dadurch klarer wird

Delphi-Quellcode:

type
  TMyClass = class
  strict private
    _Value : string; 
  private
    FValue : string;
    function GetValue : string;
  public
    function GetSomething( const AValue : string ) : string;
    property Value : string read GetValue;
  end;

function TMyClass.GetValue : string;
begin
  Result := '_' + FValue + '_';
end;

function TMyClass.GetSomething( const AValue : string ) : string;
var
  LValue : string;
begin
  LValue := 'Something';
  
  Result := 
    LValue + // local variable
    AValue + // attribute
    _Value + // strict private class field
    FValue + // private class field
    Value;   // property
end;