首页 > 代码库 > Delphi的goto语法

Delphi的goto语法

今天第一次主要到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;