Delphi - appeler de manière dynamique des fonctions différentes

Delphi permet de créer des variables pointant sur les fonctions, puis appelez la fonction via la variable. Ainsi, vous pouvez créer vos fonctions et attribuer une fonction à un attribut correctement typé du nœud (ou vous pouvez attribuer des fonctions à, par exemple, la propriété pratique de données code> de nombreuses classes d'articles de collecte).

interface

type
  TNodeFunction = function(AInput: String): String;

implementation

function Func1(AInput: String): String;
begin
   result := AInput;
end;

function Func2(AInput: String): String;
begin
   result := 'Fooled You';
end;

function Func3(AInput: String): String;
begin
   result := UpperCase(AInput);
end;

procedure Demonstration;
var
  SomeFunc, SomeOtherFunc: TNodeFunction;
begin

     SomeOtherFunc = Func3;

     SomeFunc := Func1;
     SomeFunc('Hello');   // returns 'Hello'
     SomeFunc := Func2;
     SomeFunc('Hello');   // returns 'Fooled You'

     SomeOtherFunc('lower case'); // returns 'LOWER CASE'

end;

Je n'utilise jamais virtualtree, mais je peux vous dire 2 façons de cela.

première méthode: p>

Si vous utilisez Delphi 2009 ou la version supérieure, essayez d'utiliser RTTI pour une méthode d'appel de l'appel dynamique p >

Ceci est un exemple pour RTTI P>

uses rtti;

function TVLCVideo.Invoke(method: string; p: array of TValue): TValue;
var
  ctx     : TRttiContext;
  lType   : TRttiType;
  lMethod : TRttiMethod;

begin
  ctx := TRttiContext.Create;
  lType:=ctx.GetType(Self.ClassInfo); // where is the your functions list ? if TFunctions replace the Self with TFunctions class
  Result := nil;
  try
    if Assigned(lType) then
      begin
       lMethod:=lType.GetMethod(method);

       if Assigned(lMethod) then
        Result := lMethod.Invoke(Self, p);  // and here is same replace with your functions class
      end;
  finally
    lMethod.Free;
    lType.Free;
    ctx.Free;
  end;
end;