我的学习生涯（Delphi篇） - 05

    多线程基本是所有程序都应该拥有的“基因”。

    下例既是简单的演示。

   -------------------------------------------------------------------------------------------------美丽分割线---------------------------

   年代：2005

   文件：my0712.7z

    效果如下图：

    

    主程序单元：

    Unit2.pas

    

unit Unit2;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB, ScktComp, Sockets;type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Edit1: TEdit;    Edit2: TEdit;    ADOConnection1: TADOConnection;    ServerSocket1: TServerSocket;    TcpClient1: TTcpClient;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;  ThreadsRunning:integer;implementationuses  unit1;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  MyThread1,MyThread2:MyThread;begin   ThreadsRunning:=2;   MyThread1:=MyThread.Create(Edit1,5000);   MyThread1.OnTerminate := Button2Click;   MyThread2:=MyThread.Create(Edit2,5000);   MyThread2.OnTerminate := Button2Click;   Button1.Enabled := False;end;procedure TForm1.Button2Click(Sender: TObject);begin   dec(ThreadsRunning);   if ThreadsRunning=0 then     Button1.Enabled := True;end;end.

    

    线程单元：

    Unit1.pas

    

unit Unit1;interfaceuses  Classes, StdCtrls,SysUtils;type  MyThread = class(TThread)  private    AEdit:TEdit;    MaxLoop:Integer;    CurrentLoop: Integer;    { Private declarations }  protected    procedure DisLoop;    procedure Execute; override;      public     constructor Create(Edit:TEdit;Max:Integer);//virtual;  end;implementation{ Important: Methods and properties of objects in VCL or CLX can only be used  in a method called using Synchronize, for example,      Synchronize(UpdateCaption);  and UpdateCaption could look like,    procedure MyThread.UpdateCaption;    begin      Form1.Caption := 'Updated in a thread';    end; }{ MyThread }constructor MyThread.Create(Edit:TEdit;Max:Integer);begin   inherited Create(False);   AEdit:=Edit;   MaxLoop:=Max;   FreeOnTerminate := True;end;procedure MyThread.DisLoop;begin  AEdit.text:=InttoStr(CurrentLoop);end;procedure MyThread.Execute;var  I:integer;begin  for I:=0 to MaxLoop Do  begin    CurrentLoop:=I;     Synchronize(DisLoop);     if Terminated then Exit;  end;end;end.