我的delphi为什么不能用showmessage函数

wmkforever1234 · 发表于 2014-10-5 10:56:59

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

代码如下但是提示我unterminated stringF:\1.JPG

wmkforever1234 · 发表于 2014-10-5 10:57:33

procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.Text:=inttostr(random(1000));
edit2.Text:=inttostr(random(1000));
x1:=strtoint(edit1.Text)+strtoint(edit2.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
x2:=strtoint(edit3.Text);
if x1=x2 then ShowMessage('yes‘);
else ShowMessage('no’);
end;

end.

我叫delphi · 发表于 2014-10-15 13:51:58

if then
begin
end
else
begin
end

qq351317878 · 发表于 2014-10-15 22:40:29

格式不规范

tlwangxd · 发表于 2014-10-16 06:11:36

错误如下：
1）else前不能有分号；
2）单引号必须是英文格式的不能是中文引号;
3)随机函数没加初使化种子Randomize;

qq351317878 · 发表于 2014-10-16 08:56:30

tlwangxd 发表于 2014-10-16 06:11
错误如下：
1）else前不能有分号；
2）单引号必须是英文格式的不能是中文引号;

没种子也能用把，这不是关键

qq351317878 · 发表于 2014-10-16 08:59:36

procedure TForm1.FormActivate(Sender: TObject);
begin
        edit1.Text:=inttostr(random(1000));
        edit2.Text:=inttostr(random(1000));
        x1:=strtoint(edit1.Text)+strtoint(edit2.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        x2:=strtoint(edit3.Text);
        if x1=x2 then
         ShowMessage('yes')
        else 
        ShowMessage('no;');
end;

end.

qq351317878 · 发表于 2014-10-16 09:00:42

代码要规范，不规范打错了都很难发现错误，，，按我上面的代码试试

rmb788520 · 发表于 2014-10-16 11:59:50

楼上已解答~~~

大个的糖果 · 发表于 2014-11-1 07:24:33

提示: 作者被禁止或删除内容自动屏蔽

wmkforever1234 · 发表于 2014-11-5 21:29:01

tlwangxd 发表于 2014-10-16 06:11
错误如下：
1）else前不能有分号；
2）单引号必须是英文格式的不能是中文引号;

现在看看之前写的代码，真是错误百出额

wmkforever1234 · 发表于 2014-11-5 21:29:45

qq351317878 发表于 2014-10-16 09:00
代码要规范，不规范打错了都很难发现错误，，，按我上面的代码试试

发现养成个好习惯真是很重要。。。感谢指点

qq351317878 · 发表于 2014-11-5 22:02:59

wmkforever1234 发表于 2014-11-5 21:29
发现养成个好习惯真是很重要。。。感谢指点

代码规范很重要，Delphi的代码可读性很好，不要吧很好读的代码搞得很乱

wmkforever1234 · 发表于 2014-11-5 22:05:17

qq351317878 发表于 2014-11-5 22:02
代码规范很重要，Delphi的代码可读性很好，不要吧很好读的代码搞得很乱

正在努力养成好习惯

账号		自动登录	找回密码
密码			立即注册

大个的糖果大个的糖果当前离线 UID 267379 日志相册贡献荣誉积分 262 狗仔卡头像被屏蔽	发表于 2014-11-1 07:24:33 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	想知道小甲鱼最近在做啥？请访问 -> ilovefishc.com
	回复支持反对使用道具举报显身卡