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 fdconnection1获取查询语句的第一个值

Delphi 将label的caption内容竖向显示

通过崩溃地址找错误行数之Delphi

Delphi fdquery1查询,有无返回集

Delphi 获取电脑进程网络连接ip端口

Delphi 关于datetimepicker的一点问题(同时修改日期和时间的实现)

Delphi 官方 processmessages 用法代码例子

Delphi 采用 tidhttp 访问 https 的网站,采用 tidtcpclient 访问 https 的网站

Delphi图表控件tchart使用faq

Delphi memo1 统计行 列

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...