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

wmkforever1234

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

wmkforever1234

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

if  then
begin
end
else
begin
end

qq351317878

格式不规范

tlwangxd

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

qq351317878

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

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

qq351317878

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

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

rmb788520

楼上已解答~~~

wmkforever1234

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

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

wmkforever1234

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

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

qq351317878

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

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

wmkforever1234

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

正在努力养成好习惯