/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

-80 votes106 views10 answers
Code
TypeScript
16 votes105 views2 answers
Chunk list python
TypeScript
1 vote100 views1 answer
How to generate test data
TypeScript
7 votes118 views2 answers
Remote events roblox
TypeScript
0 vote125 views1 answer
TypeError: __cinit__() takes at least 2 positional arguments (0 given)
TypeScript
23 votes108 views3 answers
Check if file exists bash
TypeScript
0 vote125 views1 answer
How to exclude certain proprty from a class typescript
TypeScript
0 vote120 views1 answer
Pyton program acept user first and last name and prints in revese
TypeScript
0 vote110 views1 answer
C# linq get list of objects based on another list
TypeScript
46 votes124 views6 answers
Install requests python
TypeScript