/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 vote122 views1 answer
Non-abstract class does not implement inherited abstract member typescript
TypeScript
1 vote109 views1 answer
Its getting abort when im trying to open the webcame using opencv
TypeScript
0 vote96 views1 answer
Mailbox exists c#
TypeScript
0 vote96 views1 answer
Wergensherts meaning
TypeScript
29 votes105 views4 answers
File ng.ps1 cannot be loaded because running scripts is disabled on this system.
TypeScript
0 vote157 views1 answer
How to update firebase document field angular
TypeScript
1 vote134 views1 answer
Python requests firefox headers
TypeScript
0 vote90 views1 answer
Ngx-numeral
TypeScript
12 votes121 views2 answers
How to make a bool appear in all scripts unity
TypeScript
1 vote104 views1 answer
Return the Objects Keys and Values
TypeScript