/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 vote243 views1 answer
Vba if value exists in range
TypeScript
0 vote243 views1 answer
Error TS2307: Cannot find module '@angular/cdk/bidi'.
TypeScript
18 votes217 views3 answers
What is unit testing
TypeScript
0 vote218 views2 answers
Property 'attributes' does not exist on type 'eventtarget'
TypeScript
26 votes221 views4 answers
Typescript type from enum values
TypeScript
2 votes218 views2 answers
Typescript datetimte
TypeScript
17 votes239 views4 answers
Pygame mouse events
TypeScript
0 vote234 views2 answers
How to find the total of the products added to the shopping cart in java program
TypeScript
0 vote224 views1 answer
W to check whether an image is a broken image or not in typescript angular
TypeScript
0 vote223 views1 answer
What do you need local sccripts for
TypeScript