Критические секции

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls, SyncObjs;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Memo1: TMemo;
    Edit1: TEdit;
    Memo3: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo2: TMemo;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
var
  n1, n2, j, i10, i20 : integer;
  p1, p2: ^integer;
  mas: array of integer;
  hThread1, hThread2: integer;
  ThreadID1, ThreadID2: cardinal;
  C_S: TCriticalSection;
 
function ThreadFunc(lp: PInteger): integer; stdcall;
var
  i: integer;
  n: integer;
begin
  while j < n2 do
    begin
      C_S.Enter;
 
      for i := 1 to n1 do
        begin
          n := Length(mas);
          if lp^ = 1 then
            Form1.Memo2.Lines.Add('mas[' + IntToStr(i+j*n1) + ']= ' + IntToStr(mas[n-1]))
          else
            Form1.Memo3.Lines.Add('mas[' + IntToStr(i+j*n1) + ']= ' + IntToStr(mas[n-1]));
          Setlength(mas,n+1);
          mas[n] := mas[n-1]+1;
        end;
 
      Inc(j);
      Sleep(5);
      C_S.Leave;
      Sleep(100);
    end;
  Result:= 1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text ='') or (Edit2.Text = '') then
    begin
      ShowMessage('Не заданы длина порции чисел' + chr(13) + chr(10) +
                  'или их количество');
      Exit;
    end;
   n1:= StrToInt(Edit1.Text);
   n2:= StrToInt(Edit2.Text);
 
  i10:= 1;
  p1:= @i10;
  hThread1:= CreateThread(nil, // Указатель на атрибуты безопасности(по умолчанию)
               0,          // Размер стека, 0 - размер по умолчанию - 1 мегабайт
               @ThreadFunc,       // Указатель на процедуру нити
               p1,                // Указатель на аргумент этой процедуры
               CREATE_SUSPENDED,  // Нить не стартует сразу, 0 - стартует сразу
               ThreadID1);        //  Идентификатор нити, выходной параметр
if hThread1 =0 then
    begin
      ShowMessage('Не создана первая нить');
      Exit;
    end;
 
  i20:= 2;
  p2:= @i20;
  hThread2:= CreateThread(nil, // Указатель на атрибуты безопасности(по умолчанию)
               0,          // Размер стека, 0 - размер по умолчанию - 1 мегабайт
               @ThreadFunc,       // Указатель на процедуру нити
               p2,                // Указатель на аргумент этой процедуры
               CREATE_SUSPENDED,  // Нить не стартует сразу, 0 - стартует сразу
               ThreadID2);        // Идентификатор нити, выходной параметр
  if hThread2 =0 then
    begin
      ShowMessage('Не создана вторая нить');
      Exit;
    end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     inherited;
  ResumeThread(hThread1);
  ResumeThread(hThread2);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(mas, 1);
  mas[0]:= 1;
  // Создаем критическую секцию
  C_S:= TCriticalSection.Create;
end;
 
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
// Удаляем критическую секцию
  C_S.Free;
end;
 
 
 
 
end.