今天第一次主要到Delphi也有goto语法，特别是其奇怪的label声明。估计主要是用来跳出多重循环，而且还真有人使用这种方式。记个笔记：
procedure TForm1.btn3Click(Sender: TObject); var I, J: Integer; label label1; begin for I := 0 to 5 do begin for J := 1 to 3 do begin if J = 2 then goto label1; end; end; label1: end;
原文：http://www.cnblogs.com/findumars/p/3798332.html