概述： VCL實(shí)現(xiàn)同步的另一種方法就是調(diào)用線程類的Synchronize的過程，此過程需要一個(gè)無參數(shù)的procedure，故在此procedure中無法傳遞參數(shù)值，但可以通過類的成員來實(shí)現(xiàn)。在類的Execute中只須調(diào)用Synchronize就可以了。 實(shí)現(xiàn)： 關(guān)鍵在于對(duì)Synchronize參數(shù)的定義。定義一個(gè)無參數(shù)的procedure通過它來訪問類的成員變量szName和nIndex。在類的重載Execute中調(diào)用Synchronize。 子類的定義如下：

unit?TChildThread;

?

interface

?

uses

?Classes,Messages,Windows,SysUtils;

?

const?MAX_LEN?=?260;

type

?TChildThreads?=?class(TThread)

?private

????{?Private?declarations?}

?protected

procedure?Execute;?override;

//同步函數(shù)的聲明

????procedure?UpdateData;

?public

?????szName?:?array[0..MAX_LEN]?of?Char;

????nIndex?:?Integer;

?end;

?

implementation

uses

???????Unit1;

?

{?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?TChildThread.UpdateCaption;

????begin

??????Form1.Caption?:=?'Updated?in?a?thread';

????end;?}

?

{?TChildThread?}

//同步函數(shù)的實(shí)現(xiàn)

procedure?TChildThreads.UpdateData;

begin

???????Form1.ShowData.Items.Add(PChar(@szName));

end;

?

procedure?TChildThreads.Execute;

begin

?{?Place?thread?code?here?}

?//調(diào)用同步過程

?Synchronize(UpdateData);

end;

?

end.

主程的設(shè)計(jì)與《Delphi中多線程用消息實(shí)現(xiàn)VCL數(shù)據(jù)同步顯示》基本一致，但為了與其顯示相同結(jié)果，在生成子線程中語(yǔ)句順序作了一下調(diào)整。以下代碼僅顯示與上一篇不同的一個(gè)過程，其它代碼不再贅述。

procedure?TForm1.StartThreadsClick(Sender:?TObject);

var

???????oChildThread?:?array[0..1000]?of?TChildThreads;

?i?:?Integer;

begin

???????For?i?:=?0?to?1000?do

?begin

?????oChildThread[i]?:=?TChildThreads.Create(true);

????//注意這里的代碼與消息同步中的順序。

????oChildThread[i].nIndex?:=?i;

????strcopy(@oChildThread[i].szName,PChar('Child'?+?IntToStr(i)));

????oChildThread[i].Resume;

?end;

?

end;

轉(zhuǎn)載地址：http://blog.csdn.net/maxcode/article/details/726766

總結(jié)

以上是生活随笔為你收集整理的Delphi中多线程用Synchronize实现VCL数据同步显示的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。