计算器代码求助，大大们指点下，谢谢！（新手学习）

tanyztj 2017-10-13 12:05:25
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
Button23: TButton;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button20Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button23Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var
data,data1,data2:Real;
OK:Integer;
StrO:string='0';

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//edit1输入居中
SetWindowLong(Edit1.handle, GWL_STYLE, GetWindowlong(edit1.Handle, GWL_STYLE)+ES_CENTER);
Edit1.Refresh;
end;

procedure TForm1.Button5Click(Sender: TObject); //1
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'1';
end;
OK:=0;
end;

procedure TForm1.Button6Click(Sender: TObject); //2
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'2';
end;
OK:=0;
end;

procedure TForm1.Button7Click(Sender: TObject); //3
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'3';
end;
OK:=0;
end;

procedure TForm1.Button8Click(Sender: TObject); //4
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'4';
end;
OK:=0;
end;

procedure TForm1.Button9Click(Sender: TObject); //5
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'5';
end;
OK:=0;
end;

procedure TForm1.Button10Click(Sender: TObject); //6
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'6';
end;
OK:=0;
end;

procedure TForm1.Button11Click(Sender: TObject); //7
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'7';
end;
OK:=0;
end;

procedure TForm1.Button12Click(Sender: TObject); //8
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'8';
end;
OK:=0;
end;

procedure TForm1.Button13Click(Sender: TObject); //9
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:='';
Edit1.Text:=Edit1.Text +'9';
end;
OK:=0;
end;

procedure TForm1.Button14Click(Sender: TObject); //0
begin
if Edit1.Text ='' then
MessageBeep(MB_OK)
else
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:=''
else
Edit1.Text:=Edit1.Text +'0';
end;
end;
OK:=0;
end;

procedure TForm1.Button15Click(Sender: TObject); //00
begin
if Edit1.Text ='' then
MessageBeep(MB_OK)
else
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
Edit1.Text:=''
else
Edit1.Text:=Edit1.Text +'00';
end;
end;
OK:=0;
end;

procedure TForm1.Button16Click(Sender: TObject); //.
begin
if Edit1.Text ='' then
Edit1.Text:= '0.'
else
begin
if Length(Edit1.Text)> 40 then
MessageBeep(MB_OK)
else
begin
if OK =1 then
begin
Edit1.Text:='';
Edit1.Text:= '0.';
end
else
Edit1.Text:=Edit1.Text +'.';
end;
end;
OK:=0;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
Edit1.Text:='';
OK:=0;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject); //+
var
i:Integer;
begin
i:=Length(Edit1.Text);
if Edit1.Text='' then
MessageBeep(MB_OK)
else
begin
if (Edit1.Text='+')or (Edit1.Text='-')or
(Edit1.Text='*')or (Edit1.Text='*') then
MessageBeep(MB_OK)
else
Edit1.Text:=Edit1.Text+'+';
end;


end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
begin
i:=Length(Edit1.Text);
if Edit1.Text='' then
MessageBeep(MB_OK)
else
begin
if (Edit1.Text='+')or (Edit1.Text='-')or
(Edit1.Text='*')or (Edit1.Text='*') then
MessageBeep(MB_OK)
else
Edit1.Text:=Edit1.Text+'-';
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:Integer;
begin
i:=Length(Edit1.Text);
if Edit1.Text='' then
MessageBeep(MB_OK)
else
begin
if (Edit1.Text='+')or (Edit1.Text='-')or
(Edit1.Text='*')or (Edit1.Text='*') then
MessageBeep(MB_OK)
else
Edit1.Text:=Edit1.Text+'*';
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i:Integer;
begin
i:=Length(Edit1.Text);
if Edit1.Text='' then
MessageBeep(MB_OK)
else
begin
if (Edit1.Text='+')or (Edit1.Text='-')or
(Edit1.Text='*')or (Edit1.Text='*') then
MessageBeep(MB_OK)
else
Edit1.Text:=Edit1.Text+'/';
end;
end;

procedure TForm1.Button17Click(Sender: TObject);
var
i:string;
mun:array[1..40] of Real;
mun1:array[1..40] of string;
L,j,a,k:Integer;
begin
a:=1;
j:=1;
OK:=1;
k:=1;
L:=1;
for a:=1 to Length(Edit1.Text) do
begin
if (Edit1.Text[a]='+') or (Edit1.Text[a]='-') or
(Edit1.Text[a]='*') or (Edit1.Text[a]='/') then
begin
mun[j]:= StrToFloat(i);
mun1[L]:= Edit1.Text[a];
j:=1+j;
L:=1+L;
i:='';
end
else
i:=i+ Edit1.Text[a];
end;
mun[j]:= StrToFloat(i);
data:= mun[1];
for a:=2 to j do
begin
data1:= mun[a];
if mun1[k]='+' then
data2:=data+data1
else if mun1[k]='-' then
data2:=data-data1
else if mun1[k]='*' then
data2:=data*data1
else if mun1[k]='/' then
data2:=data/data1;
k:=k+1;
data:= data2;
end;
Edit1.Text:=Edit1.Text+'='+floattostr(data2);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(key in ['0'..'9',#8,#43,#45,#42,#47,#46,#187,#13]) then // #8 表示Delete键
Begin
Key:= #0; // #0 表示没有输入
MessageBeep(MB_OK);
End;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
Edit1.Text := Copy(Edit1.Text,0,Length(Edit1.Text)-1);
Edit1.SetFocus;
Edit1.SelStart := Length(Edit1.Text);
end;



procedure TForm1.Button21Click(Sender: TObject);
begin
if edit1.text <> stro then listBox1.AddItem(edit1.text,sender);
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
listBox1.Clear;
end;

end.

解决了很多问题，现在有二个问题：

1、上面复制那个问题没解决。（我现在粘上的代码去掉了这部分）

2、我想实现按回车键就显示计算结果，怎么做？谢谢大大

3、还有个问题，比如显示的是这样的内容：2*6=12，我想在另一个Label中只取=号后面的结果，可以吗？怎么做？谢谢
...全文
291 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ooolinux 2017-10-17
  • 打赏
  • 举报
 回复
3、还有个问题，比如显示的是这样的内容：2*6=12，我想在另一个Label中 —————————— 12不是你计算得到的结果吗，比如存在变量result里，Label1.Caption=IntToStr(result)
ooolinux 2017-10-13
  • 打赏
  • 举报
 回复
2、我想实现按回车键就显示计算结果，怎么做？谢谢大大 —————————— =按钮的Default属性设置为true; //默认按钮，按回车键触发点击该按钮
Python PyQt6 计算器项目
# Python PyQt6 计算器项目## 课程介绍本课程使用 Python PyQt 库，带大家一步一步地实现一个数字计算器，大家能从中学习到 PyQt 的主窗口创建、网格布局、信号与槽等内容。## 项目截图      
ios(iphone/ipad)开发每日一练【2011-11-21】
邮件开发问题 背景循环是怎么做的？ 关于UIWebView的问题，求教 代码中会出现泄露么？ 求教 CFSocket ...求助～简单问题－－－－－－很简单的...新手问题 关于日期计算器 NSNotificationCenter的问题 付费求助：I
题解 | #反转链表#很简单，新建节点插在末尾就行
//** * 代码中的类名、本人海外电气硕，求大佬们帮看下要签哪个，都是在北京公司1：国航AMECO，国企，全包13万左右，研发岗，六险两金，工作地点：首都机场优点：据说工作较轻松，福利较。一面和二面内容差不多，1...
java开发速成班培训课程（1）
[url=...请帮忙解决一下 (悬赏:3分)[/url] [url=http://www.buildapp.net/java/show.asp?id=12399]请老师们帮我看下这段很短的代码，为什么结果会是这样？ [/url] [url=http://www.build...
题解 | #字符逆序#--使用SB的reverse()方法
暑假期间投的，一直没消息，自己研究方向和招聘要求不太匹配，以为挂了，前段时间突然联系我，简单面试下就发了offer，有点拿不准，看网上风评有点差，有无过来人指点。各位家人，帮忙指点一。前几天发了几封邮件问...
语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章