/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

4 votes320 views2 answers
Events on checkbox in jquery
TypeScript
0 vote318 views1 answer
Object is possibly 'null'. 20 *ngIf="!signupForm.get('email').valid && signupForm.get('email')!.touched "
TypeScript
0 vote406 views5 answers
How to css after elements for background overlays
TypeScript
0 vote347 views1 answer
Pull rewuests in local project
TypeScript
0 vote360 views1 answer
How to separate elements in list python
TypeScript
0 vote329 views1 answer
Object notation string javascript\
TypeScript
0 vote330 views1 answer
How to display dotted line betweens 2 series point in high charts react native
TypeScript
-1 vote346 views3 answers
Date time picker in angular material
TypeScript
0 vote355 views1 answer
Typescript check if a value is undefined
TypeScript
0 vote305 views1 answer
Common mistakes
TypeScript