/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 vote198 views1 answer
Cannot show Automatic Strong Passwords for app bundleID: com.williamyeung.gameofchats due to error: iCloud Keychain is disabled
TypeScript
1 vote179 views1 answer
Typescript add comments to interface prop[
TypeScript
5 votes308 views1 answer
Sqlite3.ProgrammingError: SQLite objects created in a thread can only be used in that same thread
TypeScript
0 vote183 views1 answer
Java lambda list of objects cast
TypeScript
0 vote188 views1 answer
Display entry count for specific column using value_counts spyder.
TypeScript
0 vote154 views1 answer
Typescript post request json
TypeScript
1 vote230 views2 answers
Solitaire
TypeScript
0 vote183 views1 answer
Typescript array of object findindex
TypeScript
5 votes204 views2 answers
Array.prototype.map() expects a return value from arrow function array-callback-return react
TypeScript
4 votes186 views1 answer
Check ports in use docker
TypeScript