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, ExtCtrls, StdCtrls;

type
  TTThreadSortForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    StarBtn: TButton;
    PaintBox1: TPaintBox;
    PaintBox2: TPaintBox;
    PaintBox3: TPaintBox;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure PaintBox2Paint(Sender: TObject);
    procedure PaintBox3Paint(Sender: TObject);
    procedure StarBtnClick(Sender: TObject);
  private
    { Private declarations }
    ThreadsRunning: integer;
    Procedure RandomizeArrays;
    procedure ThreadDone(Sender: TObject);
  public
    { Public declarations }
    Procedure PaintArray(Box: TPaintBox; const A: array of integer);
  end;

var
  TThreadSortForm: TTThreadSortForm;

implementation

uses Unit2;

{$R *.dfm}

type
  PSortArray = ^TSortArray;
  TSortArray = array[0..114] of Integer;

var
  ArraysRandom: Boolean;
  BubbleSortArray,SelectionSortArray,QuickSortArray: TSortArray;

{TTreadSortForm}

procedure TTThreadSortForm.FormCreate(Sender: TObject);
begin
  RandomizeArrays;
end;

procedure TTThreadSortForm.RandomizeArrays;
var
  i: Integer;
begin
  if not ArraysRandom then
  begin
    Randomize;
    for i := Low(BubbleSortArray) to High(BubbleSortArray) do
      BubbleSortArray[i] := Random(170);
    SelectionSortArray := BubbleSortArray;
    QuickSortArray := BubbleSortArray;
    ArraysRandom := true;
    Repaint;
  end;
end;

procedure TTThreadSortForm.PaintBox1Paint(Sender: TObject);
begin
  PaintArray(PaintBox1, BubbleSortArray);
end;

procedure TTThreadSortForm.PaintBox2Paint(Sender: TObject);
begin
  PaintArray(PaintBox2, SelectionSortArray);
end;

procedure TTThreadSortForm.PaintBox3Paint(Sender: TObject);
begin
  PaintArray(PaintBox3, QuickSortArray);
end;

procedure TTThreadSortForm.PaintArray(Box: TPaintBox;
  const A: array of integer);
var
  i: integer;
begin
  with Box do
  begin
    Canvas.Pen.Color := clRed;
    for i := Low(A) to High(A) do PaintLine(Canvas, i, A[i]);
  end;
end;

procedure TTThreadSortForm.StarBtnClick(Sender: TObject);
begin
  RandomizeArrays;
  ThreadsRunning := 3;
  with TBubbleSort.Create(PaintBox1, BubbleSortArray) do
   OnTerminate := ThreadDone;
  with TSelectionSort.Create(PaintBox2, SelectionSortArray) do
   OnTerminate := ThreadDone;
  with TQuickSort.Create(PaintBox3, QuickSortArray) do
   OnTerminate := ThreadDone;
  StarBtn.Enabled := false;
end;

procedure TTThreadSortForm.ThreadDone(Sender: TObject);
begin
  Dec(ThreadsRunning);
  if ThreadsRunning = 0 then
  begin
    StarBtn.Enabled := true;
    ArraysRandom := false;
  end;
end;

end.