数学、布尔表达式计算

 

相关资料：

https://bbs.csdn.net/topics/390387168

注意：

uses
System.Win.ComObj;

实例代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
  System.Win.ComObj;
{$R *.dfm}

function ExpCalc(exp: string): string;
var
  vScript: Variant;
begin
  vScript := CreateOleObject('ScriptControl');
  vScript.Language := 'VBScript';
  Result := vScript.Eval(exp);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
//  s:=ExpCalc('100 *4.17/0.5*(55.22+22)/3.14'); //20510.025477707
//  s:=ExpCalc('(true and true) or true and true'); //true
//  s := ExpCalc('(false and true) or true and false'); //false
  s := ExpCalc(Edit1.Text);
  Edit2.Text := s;
end;

end.