/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

1 vote315 views1 answer
Git count commits by author
TypeScript
0 vote279 views1 answer
Will Tenet come in plate format
TypeScript
0 vote306 views1 answer
Echarts is not defined
TypeScript
-1 vote257 views1 answer
Could not find method kapt() for arguments [androidx.room:room-compiler:2.3.0] on object of type org.gradle.api.internal.artifacts.dsl.dependencies.DefaultDependencyHandler.
TypeScript
0 vote314 views3 answers
Please make sure you have the correct access rights and the repository exists.
TypeScript
1 vote301 views1 answer
Import js file in typescript
TypeScript
0 vote306 views1 answer
Css proferties throught ts
TypeScript
0 vote295 views1 answer
Dots are displaying only when trying to fetch records html template
TypeScript
1 vote327 views1 answer
How to generate uuid in typescript
TypeScript
1 vote282 views1 answer
How to use command line arguments in java eclipse
TypeScript