论坛 › Delphi交流 › 我的delphi为什么不能用showmessage函数

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

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

代码如下   但是提示我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

ifthen
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的代码可读性很好 ，不要吧很好读的代码搞得很乱

{:9_235:}正在努力养成好习惯

查看完整版本: 我的delphi为什么不能用showmessage函数