表达式求值

转载 2015年11月19日 16:16:47

利用VBScript的直接计算

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils, Spin,comobj;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$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:=edit1.text;
  s:=ExpCalc('100 *4.17/0.5*(55.22+22)/3.14');
  s:=ExpCalc(s);
  Edit2.Text := s;
end;


end.

Delphi表达式

function ExpCalc(exp: string): string;var vScript: Variant;begin vScript := CreateOleObject(Script...
  • qiume
  • qiume
  • 2010年05月13日 16:57
  • 497

1、表达式求值问题 2、任务调度

  • 2017年11月10日 07:26
  • 229KB
  • 下载

表达式求值的手写链栈

  • 2017年11月16日 11:52
  • 4KB
  • 下载

数据结构 栈的应用——算术表达式求值

实验目的 : 1 .掌握栈的定义及实现; 2 .掌握利用栈求解算术表达式的方法。 实验内容: 通过修改完善教材中的算法3.4,利用栈来实现算术表达式求值的算法。对算法3.4中调用的几个函数...

c#.NET算数表达式求值程序

  • 2017年11月01日 21:40
  • 26KB
  • 下载

Java 字符串算术表达式求值

import java.util.ArrayList; import java.util.Stack; /** * * @author yhh * */ public class Calc...
  • yhhazr
  • yhhazr
  • 2012年09月05日 19:48
  • 13729

计算器MFC(表达式求值)

  • 2015年11月04日 19:01
  • 2.04MB
  • 下载

表达式求值

  • 2013年12月26日 14:00
  • 9KB
  • 下载

用java编写栈的经典应用-表达式求值

表达式求值是程序设计编程中的基本问题也是栈的经典应用,这里使用的是书上的方法,也是最广为流传的方法“算符优先法”      所谓算符优先就是算术运算中不同运算符有不同的计算优先级,所以需要使用一个算...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:表达式求值
举报原因:
原因补充:

(最多只允许输入30个字)