| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1131 人关注过本帖
标题:菜鸟设计一个计算器!程序出错了,请高手指点。
只看楼主 加入收藏
delphi_zhang
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-4-21
结帖率:50%
收藏
已结贴  问题点数:10 回复次数:7 
菜鸟设计一个计算器!程序出错了,请高手指点。
菜鸟的代码(一段):
var
    result:real;
    op:char;
    first:boolean;

   procedure Addch(ch:char);
   begin
      if first
      then begin
           Form1.EditValue.Text:=ch;
           first:=false;
           end;
           else  Form1.EditValue.Text := Form1.EditValue.Text + ch;  //这里显示出错,可是错在哪里啊?
        Form1.EditExp.Text :=  Form1.EditExp.Text + ch;

请高手指点。
搜索更多相关主题的帖子: 计算器 
2010-04-28 22:32
lth_1234
该用户已被删除
收藏
得分:5 
提示: 作者被禁止或删除 内容自动屏蔽
2010-04-29 16:02
shuang200911
Rank: 5Rank: 5
等 级:职业侠客
威 望:2
帖 子:39
专家分:337
注 册:2009-11-2
收藏
得分:5 
   procedure Addch(ch:char);
   begin
      if first
      then begin
           Form1.EditValue.Text:=ch;
           first:=false;
           end;       //此处多了分号
           else  Form1.EditValue.Text := Form1.EditValue.Text + ch;  //这里显示出错,可是错在哪里啊?
        Form1.EditExp.Text :=  Form1.EditExp.Text + ch;
2010-04-30 16:19
delphi_zhang
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2010-4-21
收藏
得分:0 
真是高手,多谢多谢!
2010-04-30 22:20
yangzailiniyq
Rank: 2
等 级:论坛游民
帖 子:24
专家分:12
注 册:2008-10-13
收藏
得分:0 
回复 4楼 delphi_zhang
学习.
2010-06-01 21:29
handsun01
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-8-1
收藏
得分:0 
回复 3楼 shuang200911
学习!
2010-06-09 01:46
givehamburge
Rank: 1
来 自:江苏省
等 级:新手上路
帖 子:3
专家分:0
注 册:2010-6-10
收藏
得分:0 
学习中
2010-06-10 21:50
leodw
Rank: 1
等 级:新手上路
帖 子:3
专家分:5
注 册:2010-8-23
收藏
得分:0 
else前面不能加分号的!
2010-08-28 10:01
快速回复:菜鸟设计一个计算器!程序出错了,请高手指点。
数据加载中...
 
   



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

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