Delphi：数学表达式

Question

是否可以在编辑框中输入数学总和并让标签生成答案？ 例如，如果我输入 (3*4)*2 如何让编辑框将 (3*4)*2 读取为表达式？

谢谢克里莎

​

Answer 1

是的，这是可能的，但是使用附加组件，我会推荐您TEvaluator，它是JCL（绝地代码库）。

检查这个非常简单的示例（只需将 EditText 与要评估的表达式放在一起）

uses
  JclExprEval;

procedure TForm1.Button1Click(Sender: TObject);
var
 Eval : TEvaluator;
begin
  Eval := TEvaluator.Create;
  try
    ShowMessage(Format('The result is %g', [Eval.Evaluate(Edit1.Text)]));
  finally
    Eval.Free;
  end;
end;