Wie Methode als Pointer übergeben?

[DieDolly]

Vielleicht hilft das

Delphi-Quellcode:

 type
   TFunctionParameter = function(const value : integer) : string;
...
function One(const value : integer) : string;
begin
   result := IntToStr(value) ;
end;
function Two(const value : integer) : string;
begin
   result := IntToStr(2 * value) ;
end;
function DynamicFunction(f : TFunctionParameter) : string;
begin
   result := f(2006) ;
end;
...
//Example usage:
var
   s : string;
begin
   s := DynamicFunction(One) ;
   ShowMessage(s) ; //will display "2006"
   s := DynamicFunction(Two) ;
   ShowMessage(s) ; // will display "4012"
end;

https://www.thoughtco.com/function-o...ameter-1057606

[BlueStarHH]

Zitat von DieDolly:

Vielleicht hilft das

Delphi-Quellcode:

 type
   TFunctionParameter = function(const value : integer) : string;
...
function One(const value : integer) : string;
begin
   result := IntToStr(value) ;
end;
function Two(const value : integer) : string;
begin
   result := IntToStr(2 * value) ;
end;
function DynamicFunction(f : TFunctionParameter) : string;
begin
   result := f(2006) ;
end;
...
//Example usage:
var
   s : string;
begin
   s := DynamicFunction(One) ;
   ShowMessage(s) ; //will display "2006"
   s := DynamicFunction(Two) ;
   ShowMessage(s) ; // will display "4012"
end;

https://www.thoughtco.com/function-o...ameter-1057606

Danke für die Mühe, aber es hilft nicht. Denn ich muss die Funktion zwingend als Pointer übergeben. Denn AddFunc(Func: Pointer); ist aus einer Dritthersteller-Lib und kann nicht geändert werden.

[himitsu]

Ein Methoden-Zeiger und auch die Class-Function bestehen aus zwei Pointern (Objekt-Instanz und Funktion-Zeiger)
und es ist unmöglich sie in nur einem Pointer zu speichern.

Static-Class-Funktions und reguläre Funktionen haben kein Self und bestehen nur aus einem Zeiger.



Einen Zeiger auf eine Variable mit dem Methodenzeiger.
* zeigt auf eine Variable irgendwo
* oder eine neue Variable mit New erstellt
* oder eine eben eine reguläre Funktion verlinken