菜鸟delphi编程~~~高手帮帮
procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption:='隐藏' then
label1.Visible :=false;
button1.Caption :='显示' ;
else
label1.Visible :=true;
button1.caption:='隐藏';
end;
刚刚学，很多细节搞不太清，帮忙改下吧
追问：另一个程序~~run程序~~什么错误也没弹出，但自动终止，run不起来，是什么原因啊~~
答案：procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption:='隐藏' then
begin
label1.Visible :=false;
button1.Caption :='显示' ;
end
else
begin
label1.Visible :=true;
button1.caption:='隐藏';
end
end;
缺少两个begin/end，delphi任何语句块，如果2句以上，必须用begin/end包括在内
Delphi里面判断的时候没有冒号滴
改成
procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption='隐藏' then
begin
label1.Visible :=false;
button1.Caption :='显示';
end
else
begin
label1.Visible :=true;
button1.caption:='隐藏';
end;
end;
上一个：DELPHI编程指的是什么？
下一个：[delphi编程]如何实现监视指定文件夹的文件操作
