/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

22 votes140 views2 answers
React native typescript children prop
TypeScript
0 vote186 views1 answer
Read_contacts android
TypeScript
0 vote149 views1 answer
Firebase not found in envirorment.ts file angular
TypeScript
0 vote144 views1 answer
Economic tracking portfolio construction
TypeScript
0 vote151 views1 answer
Onblur typescript
TypeScript
0 vote144 views1 answer
Graphql mutation is not displaying array of objects in express-graphql
TypeScript
4 votes135 views2 answers
Typescript get type
TypeScript
2 votes149 views2 answers
Adding elements in a specified column or row in a two dimensional array java
TypeScript
0 vote152 views1 answer
Get products in wordpress
TypeScript
0 vote141 views1 answer
Woocommerce change related products tect
TypeScript