/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

22 votes115 views4 answers
Generate random numbers in python within a range
TypeScript
0 vote106 views1 answer
Dart check if variable is list
TypeScript
1 vote111 views1 answer
Roblox finding points around a circle using radius, center, and angle
TypeScript
0 vote134 views1 answer
How to register a static assets folder spring boot
TypeScript
0 vote99 views1 answer
How to add id in array javascript
TypeScript
0 vote105 views1 answer
Can i use different flutter versions for differnt progjects ?
TypeScript
19 votes120 views6 answers
Create new component in Angular
TypeScript
1 vote105 views1 answer
Ionic modal controller pass parameter
TypeScript
0 vote126 views1 answer
How to use indexOf in typesript
TypeScript
1 vote115 views1 answer
Deno router
TypeScript