/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 vote281 views1 answer
Login page react native
TypeScript
0 vote277 views1 answer
Ionic 3 angular replacements or alternatives
TypeScript
1 vote271 views1 answer
React-draggable disable
TypeScript
0 vote294 views1 answer
Google sheets find last cell with value in range
TypeScript
10 votes320 views3 answers
Typescript array of object with types
TypeScript
0 vote278 views1 answer
Copy object in typescript
TypeScript
0 vote377 views2 answers
Typescript cannot find namespace
TypeScript
0 vote276 views1 answer
Roots of grass
TypeScript
0 vote286 views1 answer
How to update objects in locall storage
TypeScript
0 vote316 views2 answers
How to remove one object in an array of objects in mongoose
TypeScript