delphi 多线程同步 CriticalSection(临界区)

uses SyncObjsimplementation

var

  Form1: TForm1;

  Xs: TCriticalSection; //uses SyncObjsimplementation

{$R *.dfm}

function TmyThreadFun(p: Pointer): DWORD; stdcall;

var

  i: Integer;

begin

  Xs.Enter;

  for i := 0 to 100 do Form1.mmo1.Lines.Add(IntToStr(i));

  Xs.Leave;

  Result := 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var id: Cardinal;

begin

  xs := TCriticalSection.Create;

  mmo1.Clear;

  CreateThread(nil, 0, @TmyThreadfun, nil, 0, id);

  CreateThread(nil, 0, @TmyThreadfun, nil, 0, id);

  CreateThread(nil, 0, @TmyThreadfun, nil, 0, id);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin xs.Free;

end;

{var

CS: TRTLCriticalSection;　

{声明一个 TRTLCriticalSection 结构类型变量;

它应该是全局的} InitializeCriticalSection(CS);

{初始化} EnterCriticalSection(CS); 　　　

{开始: 轮到我了其他线程走开}

LeaveCriticalSection(CS); 　　　 {结束: 其他线程可以来了}

DeleteCriticalSection(CS); 　　 {删除: 注意不能过早删除} //也可用 TryEnterCriticalSection 替代 EnterCriticalSection.}

implementation

{$R *.dfm}

var　CS: TRTLCriticalSection;

function MyThreadFun(p: Pointer): DWORD; stdcall;

var　i: Integer;

begin　

  EnterCriticalSection(CS); 　

for i := 0 to 99 do Form1.mmo1.line.Add(IntToStr(i)); 　

LeaveCriticalSection(CS); 　

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　

  InitializeCriticalSection(CS);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin　

  DeleteCriticalSection(CS);

end;

end.

————————————————

原文链接：https://blog.csdn.net/haiou327/article/details/6176228