Dynamically call a function

[salvomic]

(06-21-2015 08:03 PM)DrD Wrote:  Did you try EXPR() w/o EVAL?:

...

ok, yes.
For now the simplest way, in my case, was the Eried tip:

Code:


planets()
BEGIN
  LOCAL ch, nameplanet;
  INPUT({{ch,{"Mercurius","Venus","Mars", "Jupiter", "Saturn", "Uranus", "Neptunus", "Pluto"}, {20,30,1}}},
  "Choose planet", 
  "planet: ", "Choose the planet to calculate an press OK", 0,5 );
  CASE
  IF ch==1 THEN nameplanet:="Mercurius"; planetCalc(nameplanet); END;
  IF ch==2 THEN nameplanet:="Venus"; planetCalc(nameplanet); END;
  ...
  DEFAULT
  END; // case
END;

...
EVAL(EXPR(nameplanet+"()"));
...

Mercurius()
BEGUN
...
END;

it works with a list of planet passing it the name of function to call.