今天第一次主要到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;
|
请发表评论