/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 vote180 views1 answer
Input non-negative decimal in typescript
TypeScript
1 vote194 views1 answer
Sheets column number to letter
TypeScript
2 votes195 views1 answer
Styled-components error in typescript
TypeScript
0 vote163 views1 answer
Create file object from url typescript
TypeScript
0 vote249 views2 answers
Typescript cannot find namespace
TypeScript
1 vote207 views1 answer
Typescript ' does not exist on type 'typeof globalThis'
TypeScript
0 vote202 views1 answer
React onclick action starts automatically
TypeScript
0 vote209 views1 answer
Empty string in typescript
TypeScript
0 vote194 views1 answer
How many bits are there in a hexadecimal digit
TypeScript
0 vote218 views1 answer
Get-dirstats not recognized
TypeScript