/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 vote101 views1 answer
How to add bootstrap to angular app page
TypeScript
0 vote155 views1 answer
Get angular width
TypeScript
0 vote141 views1 answer
SetTimeout without arguments
TypeScript
1 vote130 views2 answers
Typescript import type
TypeScript
0 vote138 views1 answer
Cast string react
TypeScript
0 vote130 views1 answer
Error TS2304: Cannot find name 'EventEmitter'.
TypeScript
0 vote126 views1 answer
How to pass data between requests
TypeScript
0 vote209 views2 answers
Java to typescript
TypeScript
0 vote138 views1 answer
Pandas get count of pair of elements in two columns
TypeScript
0 vote98 views2 answers
How to get both key and value of enum in typescript
TypeScript