/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

12 votes220 views3 answers
Loop through string js
TypeScript
12 votes228 views1 answer
Argument of type 'string | null' is not assignable to parameter of type 'string'. Type 'null' is not assignable to type 'string'
TypeScript
1 vote200 views1 answer
Vue router get full string query
TypeScript
0 vote216 views1 answer
How to compile ts in cmd
TypeScript
0 vote232 views1 answer
Minuts bwtewwn two date laravel
TypeScript
0 vote213 views1 answer
Create an array for looping typescript
TypeScript
0 vote230 views1 answer
Typescript clearinterval not working
TypeScript
32 votes229 views6 answers
Bootstrap alerts
TypeScript
0 vote225 views4 answers
Typescript hello world
TypeScript
2 votes234 views1 answer
Eslint prettier typescript
TypeScript