delphi多线程_delphi三层架构源码_delphi多线程串行执行(14)

Delphi 在 SyncObjs 单元给封装了一个 TCriticalSection 类, 用法差不多, 代码如下:

unit Unit1;  intece  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;  type   TForm1 = class(TForm)     ListBox1: TListBox;     Button1: TButton;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Button1Click(Sender: TObject);   end;  var   Form1: TForm1;  implementation  {$R *.dfm}  uses SyncObjs;  var   CS: TCriticalSection;  function MyThreadFun(p: Pointer): DWORD; stdcall; var   i: Integer; begin   CS.Enter;   for i := 0 to 99 do Form1.ListBox1.Items.Add(IntToStr(i));   CS.Leave;   Result := 0; end;  procedure TForm1.Button1Click(Sender: TObject); var   ID: DWORD; begin   CreateThread(nil, 0, @MyThreadFun, nil, 0, ID);   CreateThread(nil, 0, @MyThreadFun, nil, 0, ID);   CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); end;  procedure TForm1.FormCreate(Sender: TObject); begin   ListBox1.Align := alLeft;   CS := TCriticalSection.Create; end;  procedure TForm1.FormDestroy(Sender: TObject); begin   CS.Free; end;  end.

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-25504-14.html