delphi 多线程实例

 

下面笔者将介绍一个简单的实例，解释和说明前面所述的内容。

1） 建立Form，在其中建立两个按钮“开始采集” 和“停止采集”，添加一个PaintBox1。

2） 建立一个新的单元，在其中输入以下代码：

unit CollectThread;

interface

uses

   Classes,SysUtils,stdctrls,Graphics;

type

    TCollectDataThread = class(TThread)

   private

     FPreSetTime:Word;

      FUsedTime:integer;

     FCanvas:TCanvas;

   protected

    procedure Execute; override;

    procedure ShowData;

   public

     CollectData:array[0..1023]of integer;

     constructor Create(PresetTime:Word;Canvas:TCanvas);

end;

implementation