/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 vote319 views1 answer
Democrats are pussies
TypeScript
0 vote357 views1 answer
Angular closest element
TypeScript
1 vote319 views1 answer
Angular host binding class on input
TypeScript
9 votes334 views2 answers
Delete all child elements jquery
TypeScript
0 vote359 views1 answer
How to make the score add on while its in a loop in python
TypeScript
-1 vote303 views2 answers
How to navigate without realoding angular
TypeScript
1 vote328 views1 answer
No directive found with exportAs 'matAutocomplete'
TypeScript
1 vote335 views1 answer
Kotlin version that is used for building with gradle
TypeScript
1 vote334 views3 answers
Linux split mp4 into 2 parts by time
TypeScript
1 vote324 views1 answer
How to print the results of a command in a fil in linux
TypeScript