RSS订阅 | 匿名投稿
您的位置:网站首页 > 基础 > 正文

delphi的goto语句

作者:admin 来源:未知 日期:2010/5/4 0:17:11 人气: 标签:

批处理和汇编中倒是都用过goto,delphi这类结构很强的语言N多人不推荐使用goto,对我这样的菜鸟来说无所谓,能用就行。
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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: