delphi7写计算器问题 delphi代码实现计算

delphi7写计算器问题

1.你可以用一个开关变量要标志是输入模式（也就是你说的第1种情况，如果是第1种情况就字符串连接）或是运算模式（也就是你说的第2种情况，把eidt框清空，把edit框内容输入新的数字）
2.正数和负数或小数你都不用考虑，这个delphi会帮你完成
3.综合运算也就是先计算先输入的

具体思路如下
1.首先申请一个开关变量要标志模式
var
b_temp:boolean
2.申请两个数值变量来记录操作数，一个字符变量来记录操作符
var
d_temp1,d_temp2:double
s_temp:string
3.运算就是把两个操作数做响应的计算
if s_temp = 1 then//加法
begin
d_temp1:=d_temp1 d_temp2
end
else if s_temp = 2 then//减法
begin
d_temp1:=d_temp1-d_temp2
end
else if s_temp = 3 then//乘法
begin
d_temp1:=d_temp1*d_temp2
end
else if s_temp = 4 then//除法
begin
d_temp1:=d_temp1/d_temp2
end

注：判断输入或是运算很简单（假定b_temp为真是输入，否则为运算）
if b_temp then
begin
//字符串相加
end
else
begin
//计算结果
end

b_temp的值你只要在点运算符时做一下改动就可以了

delphi代码实现计算

编译调试通过：edit1代表a,edit2代表b,edit3代表c,edit4代表x
procedure TForm1.Button1Click(Sender: TObject)
var
a,b,x:double
begin
a:=strtofloat(edit1.text)
b:=strtofloat(edit2.text)

if (edit3.text=)or(FormatFloat(0.000,StrToFloat(edit3.Text))=0.000 )

then
showmessage(c不能为0或空，请重新输入)
else
begin
x:=(a b)/power(strtofloat(edit3.text),2)
edit4.Text:=formatfloat(0.000,x)
end
end

end.

delphi 如何计算出用字符串表示的数学表达式的值？

你的这个例子中人家用定义常量方法，将运算符赋给了字符：
Const
Symbol_Mod=M Symbol_Div=D
Symbol_Shl=L Symbol_Shr=R
Symbol_Or=O Symbol_Xor=X
Symbol_And=A

library Expression这是动态链接库,也就是dll!

Exports
ConvertExpression, ParseExpression, ParseExpressionToStr, Version 是dll的出口函数！
看样子你对delphi的动态链接库技术不太清楚！建议多看看书上这方面的内容！