摘要:
procedure TForm1.btn1Click(Sender: TObject);var i,j : integer;begin for j := 0 to 2 do begin for i := 0 to 2 do begin if i=1 then Continue;//exit,halt,abort,runerror ShowMessage(IntToStr(i)); end; ShowMessage('q'); end;end;运行结果0 2 q 0 2 q 0 2 q 然后回主界面0 然后回主界面,0 然后回操作系统,... 阅读全文