/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

15 votes172 views2 answers
Angular number pipe
TypeScript
0 vote170 views1 answer
Real time charts in flutter
TypeScript
1 vote199 views2 answers
Symfony requirements checker
TypeScript
1 vote149 views1 answer
Typescript canvas
TypeScript
0 vote210 views1 answer
Angular calculate difference between two dates
TypeScript
3 votes165 views3 answers
E.target.value typescript
TypeScript
1 vote185 views1 answer
Ts date get hour
TypeScript
1 vote163 views1 answer
Nodejs terminate the worker thread
TypeScript
0 vote174 views1 answer
How to add lists haskell
TypeScript
0 vote182 views1 answer
Typescript split/partition array by condition
TypeScript