花褪残红青杏小。燕子飞时,绿水人家绕。

delphi的goto语句

菜鸟编程 十五楼的鸟儿 19842浏览 0评论
批处理汇编中倒是都用过goto,delphi这类结构很强的语言N多人不推荐使用goto,对我这样的菜鸟来说无所谓,能用就行。
[code=delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
label n1,n2,n3,4; //goto的标签可以是标识符, 也可以是0..9999的数字
begin
x := 0;
goto n3;
n1: x := x+1;
n2: x := x+2;
n3: x := x+3;
4: x := x+4;
ShowMessage(IntToStr(x)); //返回7而不是10
end;[/code]

转载请注明:鸟儿博客 » delphi的goto语句

游客
发表我的评论 换个身份
取消评论

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址