如何实现多线程编程的基础概念？
- 内容介绍
- 相关推荐
本文共计937个文字，预计阅读时间需要4分钟。
编写一个循环程序，执行50000次，每次在程序界面的左上方（10,10）位置输出数字，代码如下：
pascalprocedure TForm1.btn2Click(Sender: TObject);var i: Integer;begin for i :=0 to 50000 do begin Writeln(10, 10, i); end;end;
先编写一个循环 50000 次的程序，每次在程序界面左上方（10,10）的位置输出数字，代码如下：
1 procedure TForm1.btn2Click(Sender: TObject); 2 var 3 i: Integer; 4 begin 5 for i := 0 to 500000 do 6 begin 7 Canvas.TextOut(10, 10, IntToStr(i)); 8 end; 9 end;
上面程序运行时, 在程序运行期间拖动窗体，窗体基本是 卡"死" 的。
本文共计937个文字，预计阅读时间需要4分钟。
编写一个循环程序，执行50000次，每次在程序界面的左上方（10,10）位置输出数字，代码如下：
pascalprocedure TForm1.btn2Click(Sender: TObject);var i: Integer;begin for i :=0 to 50000 do begin Writeln(10, 10, i); end;end;
先编写一个循环 50000 次的程序，每次在程序界面左上方（10,10）的位置输出数字，代码如下：
1 procedure TForm1.btn2Click(Sender: TObject); 2 var 3 i: Integer; 4 begin 5 for i := 0 to 500000 do 6 begin 7 Canvas.TextOut(10, 10, IntToStr(i)); 8 end; 9 end;
上面程序运行时, 在程序运行期间拖动窗体，窗体基本是 卡"死" 的。