qexprevalexamplemain.pas

来自「East make Tray Icon in delphi」· PAS 代码 · 共 63 行

unit QExprEvalExampleMain;

interface

uses
  Types, SysUtils, Classes, 
  QGraphics, QControls, QForms, QStdCtrls,
  JclExprEval;

type
  TForm1 = class(TForm)
    ExpressionInput: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    EnterButton: TButton;
    FuncList: TComboBox;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure EnterButtonClick(Sender: TObject);
    procedure FuncListClick(Sender: TObject);
  private
    { Private declarations }
    FEvaluator: TEvaluator;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.XFM}

uses
  ExprEvalExampleLogic;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FEvaluator := TEvaluator.Create;
  Init(FEvaluator, FuncList.Items);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FEvaluator.Free;
end;

procedure TForm1.EnterButtonClick(Sender: TObject);
begin
  Memo1.Lines.Add(ResultAsText(FEvaluator, ExpressionInput.Text));
end;

procedure TForm1.FuncListClick(Sender: TObject);
begin
  ExpressionInput.Text := ExpressionInput.Text + FuncList.Text;
  ActiveControl := ExpressionInput;
  ExpressionInput.SelStart := Length(ExpressionInput.Text);
end;

end.