/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

11 votes268 views1 answer
How to select last 2 elements in a string python
TypeScript
1 vote255 views1 answer
Ionic alert controller handler not dimiss
TypeScript
0 vote236 views1 answer
Who sets up Jenkins
TypeScript
1 vote236 views1 answer
Ets2 iInvalid floating point value '&7fc00000'
TypeScript
3 votes256 views1 answer
Intersection between two sets python
TypeScript
3 votes247 views1 answer
Typescript array string to array literal
TypeScript
2 votes237 views1 answer
Cra template-typescript cmd
TypeScript
1 vote257 views1 answer
Remove all children of node in typescript
TypeScript
2 votes196 views1 answer
Visual Studio Code Typescript region folding
TypeScript
0 vote257 views1 answer
Types and CoProducts in scala
TypeScript