/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 vote151 views1 answer
Clone object in typescript
TypeScript
2 votes155 views1 answer
TypeError: default_collate: batch must contain tensors, numpy arrays, numbers, dicts or lists; found <class 'PIL.Image.Image'>
TypeScript
1 vote142 views2 answers
Show all posts from category
TypeScript
0 vote132 views2 answers
Brackets latex
TypeScript
1 vote128 views1 answer
Ts queryselectorall as htmlelement
TypeScript
0 vote159 views1 answer
Concat and nunll check in typescript
TypeScript
1 vote141 views1 answer
Typescript string null or white space
TypeScript
9 votes144 views2 answers
Delete all child elements jquery
TypeScript
1 vote153 views1 answer
How to find the two parts of a vector 2 C++
TypeScript
8 votes137 views1 answer
React init ts
TypeScript