delphi的goto语句

本文整理自网络，侵删。

 批处理和汇编中倒是都用过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;
 

相关阅读 >>

Delphi 获取内网所有ip地址

Delphi 对比时间的函数

Delphi下获取系统默认的useragent的方法

Delphi jpg图片 旋转 切边 缩放

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？

Delphi 获取打印机纸型的例子

webbrowser里网页根据文字判断来点击链接

Delphi下载指定网址（url）的文件，带进度条显示

Delphi ansicontainstext 是否包含子串

Delphi treeview �c 自动给标题上加图片

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi的goto语句