/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

17 votes198 views3 answers
Router params angular
TypeScript
4 votes185 views3 answers
Show timestamp as yyyy mm dd html angular
TypeScript
0 vote178 views2 answers
Gradients colors in android
TypeScript
22 votes167 views3 answers
String to int typescript
TypeScript
0 vote262 views1 answer
Request exceeded the limit of 10 internal redirects due to probable configuration error
TypeScript
1 vote194 views1 answer
Add graphql to strapi
TypeScript
3 votes168 views3 answers
Email validation pattern angular
TypeScript
0 vote178 views1 answer
Type 'string' is not assignable to type 'ArrayBufferLike'
TypeScript
0 vote165 views1 answer
User acceptance testing vs system testing
TypeScript
1 vote173 views2 answers
Multiple scatter plots in python
TypeScript