UC知道请delphi高手,帮我解答一下
来源：百度知道 编辑：UC知道 时间：2024/05/11 14:03:26
请高手帮我看看下面这段代码有没有语法错误...
procedure TForm1.Button1Click(Sender: TObject);
var score1:integer;
begin
score1:=StrToInt(LabeledEdit1.Text)
if score1<60 then
Label1.Caption:='对不起,你没有及格'
Else if score1>60 then
Label1.Caption:='恭喜,你及格了'
else;
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var score1:integer;
begin
score1:=StrToInt(LabeledEdit1.Text)
if score1<60 then
Label1.Caption:='对不起,你没有及格'
Else if score1>60 then
Label1.Caption:='恭喜,你及格了'
else;
end;
end.
有错误，正确的应该是：
procedure TForm1.Button1Click(Sender: TObject);
var score1:integer;
begin
score1:=StrToInt(LabeledEdit1.Text);//原来少结束符
if score1<60 then
Label1.Caption:='对不起,你没有及格'
Else if score1>=60 then //>=60
Label1.Caption:='恭喜,你及格了';//原来少结束符
//不要原来的else ;
end;
语法没错误，但不严谨
按你这样写 当 score1 = 60 时
就会执行
if score1<60 then
Label1.Caption:='对不起,你没有及格'
Else if score1>60 then
Label1.Caption:='恭喜,你及格了'
else;
里的
else;
但else后什么都没，也就是空执行
所以应改成
if score1<60 then
Label1.Caption:='对不起,你没有及格'
Else score1>=60 then
Label1.Caption:='恭喜,你及格了';