/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 vote252 views1 answer
How to make a dictionary of indices and lists python
TypeScript
4 votes271 views2 answers
Ionic 3 alert css custom
TypeScript
0 vote293 views1 answer
Export const typescript
TypeScript
0 vote299 views1 answer
How to use a loop for each elements in mongo db
TypeScript
0 vote312 views1 answer
10 digit mobile number validation pattern in javascript
TypeScript
0 vote256 views1 answer
Split in angular 8
TypeScript
-1 vote255 views1 answer
10 elements of gothic literature
TypeScript
0 vote263 views1 answer
@ViewChild takes 2 arguments error
TypeScript
0 vote286 views2 answers
How to i count objects available in salesforce organization
TypeScript
0 vote263 views1 answer
How to ignore a field while desiarilizing in java if its type is not wrong
TypeScript