求表达式计算 ( 积分: 100 )

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-24

• #1

哪里有基本的表达式计算 四则 乘方 开方 支持变量更好

 

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-24

• #2

哪里有基本的表达式计算 四则 乘方 开方 支持变量更好

 

P

py6530

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-28

• #3

简单方法1:
用ADOquery控件,设置好ConnectionString
adoquery1.SQL:='select 2+4-(3*4/2) as aa';
adoquery1.open;
n:=adoquery1.fieldbyname('aa').asinteger ;// 就是表达式的结果
adoquery1.close;
//
FastReport中,也有类似的函数,
//
自己写代码,用调用递归函数,去'()';先乘除,后加减

 

L

loco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-28

• #4

TParser控件

 

C

Crazyz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-28

• #5

TParser控件

 

Z

zuoc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-28

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
Par: TfrParser;
begin
Par := TfrParser.Create;
try
Edit2.Text := Par.Calc(edit1.Text)
Par.Free;
except
Par.Free;
ShowMessage('公式错误 !');
end;
end;

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-28

• #7

用windows自己的
TScriptControl
import activex control->
microsoft script control

 

P

painboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-29

• #8

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2756761

能满足楼主的大部分要求，但绝难支持变量。

 

S

sunjialong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-19

• #9

接受答案了.