Funktion über ihren Namen als String aufrufen

[DeddyH]

Naja, wenn man aus Call eine (Klassen-)Methode macht, könnte man auf private (Klassen-)Felder zugreifen und somit auf globale Variablen verzichten.

[Furtbichler]

Wenn man die Routinen in einer DLL vorhält, kann man diese zur Laufzeit unter ihrem Namen aufrufen.

Delphi-Quellcode:

Procedure CallProcedure (aDLLHandle : THandle; aFunctionName : String; aInParam : Variant; Var aOutParam : Variant);
Var
  pProcPtr: TDLLProcedure;

Begin
  pProcPtr := GetProcAddress(aDLLHandle, PChar(aFunctionName));
  If Not Assigned(pProcPtr) Then
    Raise Exception.CreateFmt('Function "%s" Not Found (%d)', [aFunctionName, GetLastError]);
  aOutParam := Null;
  pProcPtr(aInParam, aOutParam);
End;

Der Schnippsel ist aus einem Uralt-Projekt wo mit Plugins gearbeitet wurde.

[Andreas L.]

Zitat von DeddyH:

Naja, wenn man aus Call eine (Klassen-)Methode macht, könnte man auf private (Klassen-)Felder zugreifen und somit auf globale Variablen verzichten.

Ist mir nach dem posten auch eingefallen. Hab' den Beitrag daher editiert.