/TypeScript/Delphi call function from its name

Delphi call function from its name

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;

Source: stackoverflow.com

Similar codes

0 vote289 views1 answer
Flutter create widget for each element of list
TypeScript
2 votes276 views1 answer
Typescript singleton
TypeScript
1 vote243 views1 answer
Microsoft outlook graph get events dates
TypeScript
0 vote259 views1 answer
Difference between facets and filters algolia
TypeScript
0 vote260 views1 answer
Module.exports mongodb connection
TypeScript
6 votes243 views1 answer
Comments pycharm
TypeScript
-3 votes274 views3 answers
Ts warning Could not find a declaration file for module but runs
TypeScript
1 vote247 views1 answer
Matlab run all tests in folder
TypeScript
5 votes259 views1 answer
Python how to check if all elements in list are the same
TypeScript
0 vote259 views1 answer
Typeorm where in example
TypeScript