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;
    

  • 相关阅读:
    A Simple Problem with Integers poj 3468 多树状数组解决区间修改问题。
    Fliptile 开关问题 poj 3279
    Face The Right Way 一道不错的尺取法和标记法题目。 poj 3276
    Aggressive cows 二分不仅仅是查找
    Cable master(二分题 注意精度)
    B. Pasha and String
    Intervals poj 1201 差分约束系统
    UITextField的快速基本使用代码块
    将UIImage转换成圆形图片image
    color转成image对象
  • 原文地址:https://www.cnblogs.com/m0488/p/3380275.html
Copyright © 2011-2022 走看看