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.