多线程编程(1) - 先入门
先编写一个循环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;...
原创
2022-04-25 22:09:30 ·
156 阅读 ·
0 评论