/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 vote124 views1 answer
Check if username exists in database django
TypeScript
0 vote143 views1 answer
Python multiply digits of a number
TypeScript
5 votes137 views2 answers
How to create empty object typescript
TypeScript
2 votes164 views1 answer
Typescript type for intervalId
TypeScript
3 votes128 views4 answers
Remove item from array if exists in another array
TypeScript
0 vote162 views1 answer
Multiple widgets as single widget flutter row for
TypeScript
1 vote122 views1 answer
Typescript type of component
TypeScript
0 vote123 views1 answer
Filter by list of Ids
TypeScript
0 vote133 views1 answer
Add legends to y plots matplotlib
TypeScript
0 vote126 views1 answer
Cannot find module '@tns-core-modules/application-settings' or its corresponding type declarations.
TypeScript