Ich hätte da noch eine etwas einfachere Lösung.
Also ohne Assembler.
Dabei stellt "TDynMethod" die Signatur der aufzurufenden Methoden dar und die Adresse der gesuchten Methode kommt in eine Variable vom Typ "TMethod" und wird anschließend in den Typ "TDynMethod" gecastet und hier auch gleich ausgeführt. Hab allerdings nicht explizit alle Datentypen durchprobiert. Da der Auffruf aber nicht aus der Applikation raus geht, sollten eigentlich alle Parameter-Typen funktionieren.
Delphi-Quellcode:
unit Unit3;
{$METHODINFO ON}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TDynMethod =
function(s:
String):
String of object;
TForm3 =
class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure execMyMethod(
name:
String);
function m1(value:
String):
String;
function m2(value:
String):
String;
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.execMyMethod(
name:
string);
var
dMethode: TMethod;
begin
dMethode.Data := Self;
// Objekt zu dem die Methode gehört
dMethode.Code := Self.MethodAddress(
name);
// Adresse der gesuchten Methode
if (dMethode.Code <>
nil)
then
ShowMessage(TDynMethod(dMethode)('
Teststring'))
// Type-Cast und sofortiger Aufruf mit einem sinnlosen String :)
else
ShowMessage('
Die angegebene Methode wurde nicht gefunden!');
end;
function TForm3.m1(value:
string):
String;
begin
Result := '
Ich bin Methode 1 und übergeben wurde: ' + value;
end;
function TForm3.m2(value:
string):
String;
begin
Result := '
Ich bin Methode 2 und übergeben wurde: ' + value;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
execMyMethod(Edit1.Text);
end;
end.