/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 vote308 views1 answer
File_exists in wordpress
TypeScript
1 vote394 views1 answer
Dataframe value counts sort
TypeScript
1 vote353 views1 answer
Mongodb array size greater than
TypeScript
17 votes311 views4 answers
Pygame mouse events
TypeScript
4 votes304 views1 answer
Map vs for each
TypeScript
0 vote303 views1 answer
Typescript instantiate 2d array
TypeScript
1 vote293 views1 answer
Type 'MutableRefObject<undefined>' is not assignable to type 'RefObject<HTMLInputElement>'. Types of property 'current' are incompatible. Type 'undefined' is not assignable to type 'HTMLInputElement | null'. TS2322
TypeScript
6 votes273 views2 answers
After effects download
TypeScript
0 vote356 views1 answer
None of the following functions can be called with the arguments supplied. makeText(Context!, CharSequence!, Int) defined in android.widget.Toast makeText(Context!, Int, Int) defined in android.widget.Toast
TypeScript
0 vote329 views1 answer
Storing user name and password ofr hosts in ansible playbooks
TypeScript