Delphi if为什麽我这样写出错!

来源:百度知道 编辑:UC知道 时间:2024/09/21 11:20:30
procedure TForm1.Button1Click(Sender: TObject);
begin
If Form1.Caption='Form1' then
Button1.Caption:='win';
Form1.Caption:='Show'
else
ShowMessage('over');
end;
我的意思就是不能在IF下面执行多条语句麽?当我改成一条时就可以,加多一条就不行!等....

在if下面之下多条语句,需要加begin end;比如
If Form1.Caption='Form1' then
begin
Button1.Caption:='win';
Form1.Caption:='Show'
end
else
ShowMessage('over');

procedure TForm1.Button1Click(Sender: TObject);
begin
If Form1.Caption='Form1' then
begin
Button1.Caption:='win';
Form1.Caption:='Show';
end
else
ShowMessage('over');
end;
注意代码块

DELPHI用的是PASCAL,多条时要用BEGIN和END的,相当于C里面的{}。
if(表达试)
begin
...
...
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
If Form1.Caption='Form1' then
begin
Button1.Caption:='win';
Form1.Caption:='Show'
end else
ShowMessage('over');
end;

这样就可以了,如果要执行一条以上的语句的时候,必须用begin用开始 和 end结束才能当成一段执行。

他们俩说的都对