/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 vote209 views1 answer
How to add lists haskell
TypeScript
0 vote221 views1 answer
Extracts lists from list python
TypeScript
0 vote219 views1 answer
Typescript number to hex string
TypeScript
0 vote252 views1 answer
Em is relative to its font size
TypeScript
1 vote216 views1 answer
Create an anonimus object in angular
TypeScript
4 votes257 views2 answers
Ionic 3 alert css custom
TypeScript
0 vote214 views1 answer
When new item added in array its not refreshing the list in ember
TypeScript
3 votes202 views1 answer
Stylesheet not loaded because of mime-type
TypeScript
1 vote196 views1 answer
Tostring kotlin
TypeScript
1 vote198 views1 answer
Regex ts
TypeScript