| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 613 人关注过本帖
标题:[求助]我照着编了个计算器的程序,caseNof提示出错
只看楼主 加入收藏
abcjkl
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-14
结帖率:100%
收藏
 问题点数:0 回复次数:10 
[求助]我照着编了个计算器的程序,caseNof提示出错

计算器的整个程序如下
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;
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1'
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'2'
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'3'
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'4'
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'5'
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'6'
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'7'
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'8'
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'9'
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
caseNof ------------------就是这里提示出错,不知怎么办?请高手!
1:temp2:=strtofloat(temp1)+strtofloat(edit1.text);
2:temp2:=strtofloat(temp1)-strtofloat(edit1.text);
3:temp2:=strtofloat(edit1.text)*strtofloat(temp1);
4:if strtofloat(edit1.text)=0 then
begin
showmessage('除数为0!');
exit;
end
else
temp2:=strtofloat(temp1)/strtofloat(edit1.text);
end;
edit1.text:=floattostr(temp2);
end;

end;

procedure TForm1.Button12Click(Sender: TObject);
begin
edit1.Clear
end;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
n:=1;
temp1:=edit1.text;
edit1.clear;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
n:=2;
temp1:=edit1.text;
edit1.clear;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
n:=3;
temp1:=edit1.text;
edit1.clear;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
n:=4;
temp1:=edit1.text;
edit1.clear;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
form1.Edit1.Clear;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'0'
end;

end.

搜索更多相关主题的帖子: 提示 caseNof 计算器 
2007-10-18 15:37
abcjkl
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-14
收藏
得分:0 

错误提示了一大堆,其中前两条如下
Undeclared identifier 'caseNof'
Missing operator or semicolon

2007-10-18 15:46
bbflycat
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-10-17
收藏
得分:0 
N要设为全局变量
case N of 这样写吧

delphi了解不多! case语句 基本不用!
2007-10-18 15:58
abcjkl
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-14
收藏
得分:0 
谢谢你的答复,但这样做也通不过,错误提示仍然出现在这里.
2007-10-19 15:53
abcjkl
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-14
收藏
得分:0 
高人快来看看吧,谢了。
2007-10-20 19:28
abcjkl
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-14
收藏
得分:0 
继续顶啊
2007-10-22 08:17
abcjkl
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-14
收藏
得分:0 
SKY版主也不来看看吗,555555
2007-10-24 08:46
xxjzx
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-5-16
收藏
得分:0 

你的N从哪里来的?即没有在变量声明时声明,也没有在程序中定义个值!程序到那里肯定要报找不到变量或表达式的错误,你再检查一下,这个N到底是干什么的!


一起来玩编程的游戏吧!
2007-10-24 09:40
wustxiaolang
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-10-24
收藏
得分:0 
2007-10-24 11:57
huricn
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-10-24
收藏
得分:0 
看看
2007-10-24 13:59
快速回复:[求助]我照着编了个计算器的程序,caseNof提示出错
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025118 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved