zoukankan      html  css  js  c++  java
  • 现在, Delphi 的多线程已经非常易用了!

    先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):

    {自定义方法: 在窗体上绘制...}
    procedure MyMethod;
    var
      i: Integer;
    begin
      for i := 0 to 500000 do
      begin
        Form1.Canvas.Lock;
        Form1.Canvas.TextOut(10, 10, IntToStr(i));
        Form1.Canvas.Unlock;
      end;
    end;
    
    {调用上面的自定义方法}
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      MyMethod;
    end;

    修改为多线程(只修改一行代码):

    procedure MyMethod;
    var
      i: Integer;
    begin
      for i := 0 to 500000 do
      begin
        Form1.Canvas.Lock;
        Form1.Canvas.TextOut(10, 10, IntToStr(i));
        Form1.Canvas.Unlock;
      end;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      TThread.CreateAnonymousThread(MyMethod).Start; //!!!
    end;

    代码分析: 

    1、TThread 现在增加了许多 class 方法(直接通过类名调用的方法), TThread.CreateAnonymousThread() 就是比较有用的一个. 

    2、顾名思义, CreateAnonymousThread 是建立匿名线程对象, 它的参数是我们需要在线程中执行的方法. 

    3、但 CreateAnonymousThread 建立线程后是挂起的, 需要手动运行它; 后面的 Start 方法就是用来唤醒线程的. 

    4、(以前)唤醒线程还可以使用 Resume 方法或 Suspended 属性(Suspended := False;); 但它们即将被废弃了, 现在应使用 Start 来启动线程.



    CreateAnonymousThread 的参数类型 TProc 是匿名方法(reference), 所以代码可以简写为:

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      TThread.CreateAnonymousThread( //直接写入方法体
        procedure
        var
          i: Integer;
        begin
          for i := 0 to 500000 do
          begin
            Canvas.Lock;
            Canvas.TextOut(10, 10, IntToStr(i));
            Canvas.Unlock;
          end;
        end //此处无分号
      ).Start;
    end;

    延时执行:

    var
      myThread: TThread;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      myThread := TThread.CreateAnonymousThread(
        procedure
        var
          i: Integer;
        begin
          for i := 0 to 500000 do
          begin
            Canvas.Lock;
            Canvas.TextOut(10, 10, IntToStr(i));
            Canvas.Unlock;
          end;
        end
      );
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      myThread.Start;
    end;
  • 相关阅读:
    洛谷—— P3353 在你窗外闪耀的星星
    洛谷—— P1238 走迷宫
    洛谷—— P1262 间谍网络
    9.8——模拟赛
    洛谷—— P1189 SEARCH
    算法
    May 22nd 2017 Week 21st Monday
    May 21st 2017 Week 21st Sunday
    May 20th 2017 Week 20th Saturday
    May 19th 2017 Week 20th Friday
  • 原文地址:https://www.cnblogs.com/jijm123/p/11747311.html
Copyright © 2011-2022 走看看