/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 vote279 views1 answer
Pandas value_counts multiple columns
TypeScript
20 votes212 views10 answers
Nodemon
TypeScript
0 vote205 views1 answer
Typescript make object optional
TypeScript
0 vote201 views1 answer
Using chai in typescript
TypeScript
0 vote184 views1 answer
Does not use passive listeners to improve scrolling performance
TypeScript
2 votes191 views1 answer
Router navigate pass params
TypeScript
12 votes207 views3 answers
Python count number of digits in integer
TypeScript
0 vote183 views1 answer
Filename requests python
TypeScript
0 vote208 views1 answer
Correct this attempt to modify "product" or use "let" in its declaration. [+1 location]
TypeScript
0 vote216 views1 answer
Subscripts list c#
TypeScript