Delphi：数式

Question

編集ボックスに数式の合計を入力したり、ラベルが回答を出すことは可能ですか？ 入力した場合の例（3 * 4）* 2エディットボックスに式（3 * 4）* 2を読み込ませるにはどうすればよいですか？

おかげ

Kerisha

Answer 1

はい可能ですが、追加のコンポーネントを使用して、私はあなたにJCL (Jedi Code library)の一部であるTEvaluatorをお勧めします。この非常に簡単な例（単に評価する式での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;