/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 vote188 views1 answer
Running same tests against different data
TypeScript
4 votes180 views2 answers
When manual testing
TypeScript
1 vote187 views1 answer
Get a span inside a div with div id javascript
TypeScript
0 vote186 views1 answer
Convert list to list of lists on every n elements python
TypeScript
0 vote196 views2 answers
Brackets latex
TypeScript
0 vote173 views1 answer
How to change whats in a textarea
TypeScript
0 vote188 views2 answers
Append contents of one file to another
TypeScript
0 vote173 views1 answer
Failed to find '~@nativescript/theme/css/core.css'
TypeScript
52 votes278 views6 answers
Length of an array javascript
TypeScript
0 vote187 views1 answer
Mixins with parameters typescript
TypeScript