unit1.~pas

Delphi basic program. Basic programing guide for delphi language. Several samples are giving.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMainForm = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    procedure ThreadsDone(Sender: TObject);
  public
    { Public declarations }
  end;

  TIniThread = class(TThread)
  protected
    procedure Execute; override;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

const
  MaxSize = 128;

var
  NextNum: integer = 0;
  DoneFlags: integer = 0;
  GlobalArray: array[1..MaxSize] of integer;
  hSem: THandle = 0;

function GetNextNum: integer;
begin
  Result := NextNum;
  Inc(NextNum);
end;

procedure TIniThread.Execute;
var
  i: integer;
  WaitReturn: DWORD;
begin
  OnTerminate := MainForm.ThreadsDone;
  WaitReturn := WaitForSingleObject(hSem, INFINITE);
  if WaitReturn = WAIT_OBJECT_0 then
  for i := 1 to MaxSize do
  begin
    GlobalArray[i] := GetNextNum;
    Sleep(5);
  end;
  ReleaseSemaphore(hSem, 1, nil);
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  hSem := CreateSemaphore(nil, 1, 1, nil);
  TIniThread.Create(false);
  TIniThread.Create(false);
end;

procedure TMainForm.ThreadsDone(Sender: TObject);
var
  i: integer;
begin
  Inc(DoneFlags);
  if DoneFlags = 2 then
    for i := 1 to MaxSize do
      ListBox1.Items.Add(IntToStr(GlobalArray[i]));
    CloseHandle(hSem);
end;
end.