/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 vote193 views1 answer
Check if email exists firebase
TypeScript
0 vote194 views1 answer
Modify the program so it also prints the number of A, T, C, and G characters in the sequence in python
TypeScript
0 vote273 views1 answer
Ht office
TypeScript
3 votes196 views2 answers
Write an SQL query to fetch details of employees whose name starts with an alphabet 'A' and contains 10 alphabets.
TypeScript
0 vote206 views1 answer
Hide elements in 2s jquery
TypeScript
0 vote243 views2 answers
From date and to date validation in angular 9
TypeScript
0 vote184 views1 answer
Typescript exclamation mark
TypeScript
7 votes200 views3 answers
How to call a function that other scripts can access in unity
TypeScript
0 vote185 views1 answer
Call function dynamically typescript
TypeScript
0 vote192 views1 answer
$clients = User::query()->where("type","client" )
TypeScript