Funktion über ihren Namen als String aufrufen

[DeddyH]

Zumindest parameterlose published-Proceduren kann man so aufrufen:

Delphi-Quellcode:

procedure Call(AObject: TObject; const Methodname: string);
type
  TProc = procedure of object;
var
  Method: TMethod;
  Proc: TProc;
begin
  Method.Data := AObject;
  Method.Code := AObject.MethodAddress(Methodname);
  if Assigned(Method.Code) then
    begin
      Proc := TProc(Method);
      Proc;
    end;
end;

Leider weiß ich nicht, seit welcher Delphi-Version es TMethod gibt, in Delphi 2007 ist sie jedenfalls bereits vorhanden.

[Andreas L.]

Zitat von DeddyH:

Zumindest parameterlose published-Proceduren kann man so aufrufen:

Delphi-Quellcode:

procedure Call(AObject: TObject; const Methodname: string);
type
  TProc = procedure of object;
var
  Method: TMethod;
  Proc: TProc;
begin
  Method.Data := AObject;
  Method.Code := AObject.MethodAddress(Methodname);
  if Assigned(Method.Code) then
    begin
      Proc := TProc(Method);
      Proc;
    end;
end;

Leider weiß ich nicht, seit welcher Delphi-Version es TMethod gibt, in Delphi 2007 ist sie jedenfalls bereits vorhanden.

Den Code (oder ähnlichen) habe ich mal in der Delphi-Hilfe gesehen. Auch nicht schlecht Rückgabewert und Parameter könnte man evtl. (unsauber) über globale Variablen über Felder bzw. Eigenschaften lösen. Der Vollständigkeit wegen:

Delphi-Quellcode:

  TForm1 = class(TForm)  
    ...
  private
    FProcResult: String;
    FProcParams: Array of String;
  ...
  end;

...

//var
//  ProcResult: String; // oder Variant, ...
//  ProcParams: Array of String;

...

procedure TForm1.TestProc;
begin
  if FProcParams[Low(FProcParams)] = 'Hallo' then
    FProcResult := 'Hallo'
  else
    FProcResult := 'Welt';
end;

...

ButtonClick:
begin
  // parameter festlegen
  SetLength(FProcParams, 1);
  FProcParams[1] := 'Hallo';

  // Proc aufrufen
  Call(Self, 'TestProc');

  // Rückgabewert anzeigen
  ShowMessage(FProcResult);
end;

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