2018年7月29日

Application.ProcessMessages

摘要： //如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着. procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to MaxInt do begin Text := IntToSt 阅读全文

posted @ 2018-07-29 11:19 癫狂编程 阅读(339) 评论(0) 推荐(0)

导航

好的代码像粥一样，都是用时间熬出来的