/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 vote163 views2 answers
Get key of enum typescript
TypeScript
0 vote163 views2 answers
Angular start date end date validation
TypeScript
25 votes165 views10 answers
Bootstrap
TypeScript
0 vote173 views1 answer
Hackerrank between two sets solution in python
TypeScript
1 vote183 views1 answer
Matlab run all tests in folder
TypeScript
2 votes159 views1 answer
All elements that begin with r
TypeScript
2 votes155 views1 answer
C program to find sum of array elements using recursion
TypeScript
0 vote213 views1 answer
Can we nested try statements in java
TypeScript
0 vote171 views1 answer
Remove all objects in R
TypeScript
1 vote169 views1 answer
Ion slides updateAutoHeight
TypeScript