摘要: 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 然后回操作系统,... 阅读全文
posted @ 2013-01-04 17:14 Hey_D 阅读(238) 评论(0) 推荐(0) 编辑