/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 vote144 views1 answer
Create and return a merged list of all the elements in sorted order
TypeScript
0 vote172 views1 answer
Checked a element is focused with its key pressed
TypeScript
0 vote144 views1 answer
Pretty print json file cmd
TypeScript
10 votes178 views3 answers
Foreach typescript
TypeScript
0 vote156 views1 answer
Array with objects read element with the lowest value
TypeScript
2 votes150 views1 answer
How to call angular 8 form validation ngif
TypeScript
5 votes161 views2 answers
Lofi hip hop beats cool
TypeScript
1 vote154 views2 answers
Ts lint ignore next line
TypeScript
0 vote158 views1 answer
Testing in different environments
TypeScript
0 vote159 views1 answer
Lodash mapvalues
TypeScript