Delphi多线程编程之四 线程安全和VCL

◆Delphi多线程编程之四 线程安全和VCL ◆（乌龙哈里2008-10-12）
（调试环境：Delphi2007+WinXPsp3 例程：Tst_Thread4.dpr）
    由于Delphi VCL在设计成大部分在主线程访问，因而，当多个线程同时访问VCL时，就非安全。
其实线程的安全性如上面那个读全局变量来说，那个全局变量是非线程安全的，因为当另外一个线程访问它的时候，它的数值还在被前一个线程改动中。这在非线程安全的对象中就会造成很严重的后果，比如一个对象的创立时的初始值被另一个线程改变了，后果相当地严重。
VCL中，连很基础的Tlist都是非线程安全，要多个线程操纵List时，用TThreadList来替代。
unit Tst_Thread4U;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

  TMyThread=class(TThread)
protected
procedure Execute;override;
procedure ShowInMemo;
end;
var
  Form1: TForm1;

implementation

{$R *.dfm}
const
  MaxSize=1000;
var
  NextNumber:Integer=0;
  GlobalNum:Integer;

function GetNextNumber:Integer;
begin
  Result:=NextNumber;
  inc(NextNumber);
end;

{ TMyThread }

procedure TMyThread.Execute;
var
  i:Integer;
begin
  FreeOnTerminate:=True; //终止后自动free
for i := 1 to MaxSize do
begin
    GlobalNum:=GetNextNumber;
    Sleep(5);
    Synchronize(ShowInMemo);
//  ShowInMemo;
end;
end;

procedure TMyThread.ShowInMemo;
begin
    Form1.Memo1.Lines.Add(inttostr(GlobalNum));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TMyThread.Create(False);
  TMyThread.Create(False);
end;

end.

上面这个例程，把输出到Memo1放在线程里了，所以要在Execute()内用到Synchronize()函数，这样才是线程安全。

一、Synchronize()函数。
    是个重载函数，有两种引用形式：
class procedure Synchronize(AThread: TThread; AMethod: TThreadMethod); overload;
procedure Synchronize(AMethod: TThreadMethod); overload;
Amethod是线程的一个自定义不带参数过程（！！太烦了，不能带参数，好不方便）。
Synchronize()调用了Windows的SendMessage()向主线程发一消息。主线程必须已建立消息队列，并且不断地从消息队类中检索消息。一旦主线程检索到消息，就执行Synchronize()所指定的代码。（ps:我查了Vcl源程序，发现也是调用临界区，这个太不方便了，还是使用临界区好）。