/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 vote154 views1 answer
@babel/preset-typescript
TypeScript
47 votes176 views3 answers
Random elements in python list
TypeScript
0 vote135 views1 answer
Mysqli_real_escape_string() expects parameter 1 to be mysqli
TypeScript
0 vote141 views1 answer
Google scripts docs highlight
TypeScript
0 vote196 views1 answer
Laravel validation check if email exists forget password
TypeScript
0 vote138 views1 answer
Isolate digits in large number cpp
TypeScript
0 vote155 views1 answer
Material in angular 4
TypeScript
0 vote148 views1 answer
TypeError: key must be an instance of a class implements jwt.AbstractJWKBase
TypeScript
19 votes155 views5 answers
Delete all documents in a collection mongodb
TypeScript
0 vote140 views2 answers
Benefits of matching in functional programming
TypeScript