/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 vote136 views1 answer
How to select a column with brackets in jupyter notebook
TypeScript
1 vote143 views1 answer
Next api typescript
TypeScript
0 vote131 views1 answer
Hop shoots uses
TypeScript
0 vote136 views1 answer
Parameter 'props' implicitly has an 'any' type.ts
TypeScript
6 votes169 views1 answer
An unhandled exception occurred: Cannot find module '@angular-devkit/build-angular/package.json' Require stack:
TypeScript
5 votes155 views5 answers
Angular 8 ngClass If
TypeScript
1 vote184 views1 answer
Mongodb array size greater than
TypeScript
4 votes167 views1 answer
Usestate as number
TypeScript
1 vote151 views1 answer
Download and run exploits from exploit-db
TypeScript
0 vote138 views1 answer
Input non-negative decimal in typescript
TypeScript