/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 vote231 views2 answers
Starts and end with vowel sql
TypeScript
0 vote233 views1 answer
Tkinter widgets overview
TypeScript
0 vote245 views1 answer
Java sort arraylist of objects by field descending
TypeScript
0 vote243 views1 answer
What do you need local sccripts for
TypeScript
0 vote196 views1 answer
Flutter check if app is in foreground
TypeScript
0 vote243 views3 answers
Get weights of a layer keras
TypeScript
0 vote227 views1 answer
Angular build router-outlet not working
TypeScript
2 votes262 views2 answers
Moment datepicker
TypeScript
24 votes258 views3 answers
Updates were rejected because a pushed branch tip is behind its remote
TypeScript
0 vote307 views1 answer
Some of contents don't show in FragmentBottomSheetDialog
TypeScript