/jcl/examples/common/expreval/ExprEvalExampleLogic.pas

https://github.com/the-Arioch/jcl · Pascal · 105 lines · 93 code · 10 blank · 2 comment · 0 complexity · fe7747b0693df96fa0f01326a2cc72ec MD5 · raw file 

    

  1. unit ExprEvalExampleLogic;
    2. 

  2. 

  3. interface
    4. 

  4. 

  5. uses
    6. 

  6.   SysUtils, Classes, JclExprEval;
    7. 

  7. 

  8. procedure Init(Evaluator: TEasyEvaluator; FuncList: TStrings);
    9. 

  9. function ResultAsText(Evaluator: TEvaluator; const Input: string): string;
    10. 

  10. 

  11. implementation
    12. 

  12. 

  13. uses
    14. 

  14.   JclMath;
    15. 

  15. 

  16. procedure Init(Evaluator: TEasyEvaluator; FuncList: TStrings);
    17. 

  17. begin
    18. 

  18.   with Evaluator do
    19. 

  19.   begin
    20. 

  20.     // Constants
    21. 

  21.     AddConst('Pi', Pi);
    22. 

  22. 

  23.     // Functions
    24. 

  24.     AddFunc('LogBase10', LogBase10);
    25. 

  25.     AddFunc('LogBase2', LogBase2);
    26. 

  26.     AddFunc('LogBaseN', LogBaseN);
    27. 

  27.     AddFunc('ArcCos', ArcCos);
    28. 

  28.     AddFunc('ArcCot', ArcCot);
    29. 

  29.     AddFunc('ArcCsc', ArcCsc);
    30. 

  30.     AddFunc('ArcSec', ArcSec);
    31. 

  31.     AddFunc('ArcSin', ArcSin);
    32. 

  32.     AddFunc('ArcTan', ArcTan);
    33. 

  33.     AddFunc('ArcTan2', ArcTan2);
    34. 

  34.     AddFunc('Cos', Cos);
    35. 

  35.     AddFunc('Cot', Cot);
    36. 

  36.     AddFunc('Coversine', Coversine);
    37. 

  37.     AddFunc('Csc', Csc);
    38. 

  38.     AddFunc('Exsecans', Exsecans);
    39. 

  39.     AddFunc('Haversine', Haversine);
    40. 

  40.     AddFunc('Sec', Sec);
    41. 

  41.     AddFunc('Sin', Sin);
    42. 

  42.     AddFunc('Tan', Tan);
    43. 

  43.     AddFunc('Versine', Versine);
    44. 

  44.     AddFunc('ArcCosH', ArcCosH);
    45. 

  45.     AddFunc('ArcCotH', ArcCotH);
    46. 

  46.     AddFunc('ArcCscH', ArcCscH);
    47. 

  47.     AddFunc('ArcSecH', ArcSecH);
    48. 

  48.     AddFunc('ArcSinH', ArcSinH);
    49. 

  49.     AddFunc('ArcTanH', ArcTanH);
    50. 

  50.     AddFunc('CosH', CosH);
    51. 

  51.     AddFunc('CotH', CotH);
    52. 

  52.     AddFunc('CscH', CscH);
    53. 

  53.     AddFunc('SecH', SecH);
    54. 

  54.     AddFunc('SinH', SinH);
    55. 

  55.     AddFunc('TanH', TanH);
    56. 

  56.   end;
    57. 

  57.   with FuncList do
    58. 

  58.   begin
    59. 

  59.     Add('LogBase10');
    60. 

  60.     Add('LogBase2');
    61. 

  61.     Add('LogBaseN');
    62. 

  62.     Add('ArcCos');
    63. 

  63.     Add('ArcCot');
    64. 

  64.     Add('ArcCsc');
    65. 

  65.     Add('ArcSec');
    66. 

  66.     Add('ArcSin');
    67. 

  67.     Add('ArcTan');
    68. 

  68.     Add('ArcTan2');
    69. 

  69.     Add('Cos');
    70. 

  70.     Add('Cot');
    71. 

  71.     Add('Coversine');
    72. 

  72.     Add('Csc');
    73. 

  73.     Add('Exsecans');
    74. 

  74.     Add('Haversine');
    75. 

  75.     Add('Sec');
    76. 

  76.     Add('Sin');
    77. 

  77.     Add('Tan');
    78. 

  78.     Add('Versine');
    79. 

  79.     Add('ArcCosH');
    80. 

  80.     Add('ArcCotH');
    81. 

  81.     Add('ArcCscH');
    82. 

  82.     Add('ArcSecH');
    83. 

  83.     Add('ArcSinH');
    84. 

  84.     Add('ArcTanH');
    85. 

  85.     Add('CosH');
    86. 

  86.     Add('CotH');
    87. 

  87.     Add('CscH');
    88. 

  88.     Add('SecH');
    89. 

  89.     Add('SinH');
    90. 

  90.     Add('TanH');
    91. 

  91.   end;
    92. 

  92. end;
    93. 

  93. 

  94. function ResultAsText(Evaluator: TEvaluator; const Input: string): string;
    95. 

  95. begin
    96. 

  96.   try
    97. 

  97.     Result := FloatToStr(Evaluator.Evaluate(Input));
    98. 

  98.   except
    99. 

  99.     on E: Exception do
    100. 

  100.       Result := E.Message;
    101. 

  101.   end;
    102. 

  102. end;
    103. 

  103. 

  104. 

  105. end.
    106.