例:用Goto 语句跳转到指定的程序行
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
label goto1;
begin
i:=0;
goto1: beep();
i:=i+1;
sleep(i*1000);
if i<3 then goto goto1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
label goto1;
begin
i:=0;
goto1: beep();
i:=i+1;
sleep(i*1000);
if i<3 then goto goto1;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货