Delphi:数学表达式

Question

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

谢谢

克日沙

Answer 1

可以，但是使用附加组件，我会向您推荐 TEvaluator，它是 JCL (Jedi Code library) 的一部分.

检查这个非常简单的示例(只需将一个 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;