delphi call function from its name

Alive Anteater answered on June 28, 2020 Popularity 5/10 Helpfulness 1/10

answer delphi call function from its name

delphi call function from its name

Comment

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;

Popularity 5/10 Helpfulness 1/10 Language typescript

Source: stackoverflow.com

Tags: call delphi function typescript

Link to this answer
Share Copy Link