/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

1 vote251 views1 answer
Use of value_counts in python
TypeScript
0 vote280 views1 answer
Open url with pacage.json
TypeScript
0 vote291 views1 answer
Check schema exists postgresql
TypeScript
2 votes310 views1 answer
Cannot find module 'next' or its corresponding type declarations.
TypeScript
1 vote299 views1 answer
Google sheets remove characters from string
TypeScript
1 vote298 views1 answer
Cannot find module jquery typescript ionic
TypeScript
0 vote297 views1 answer
How to check which item is in an object property c#
TypeScript
0 vote283 views1 answer
Find elements by xpath with matching text
TypeScript
4 votes248 views2 answers
Python loop object
TypeScript
0 vote268 views2 answers
Typescript "variable!: type" notation
TypeScript