сортировка в параллельных потоках

[Dmitriy90]

Здравствуйте. Помогите пожалуйста с решением задачи.
Нужно разработать многопоточную программу для сравнения быстродействия двух методов сортировки - метода выбора и метода пузырька. Сортировки реализуются в двух одновременно работающих потоках. Объектом сортировки является массив случайных целых чисел

[Somebody]

Так а чем помочь-то?

[Dmitriy90]

Я смог сделать 1 поток и в нем массив сортируется методом пузырька. Я не знаю как создать второй поток и заставить его работать параллельно первому.

вот то что я написал:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)

    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
//    procedure UpdateCaption;
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

  m:array[1..10] of integer;

implementation

{$R *.dfm}

{procedure TMyThread.UpdateCaption;
begin
  Form1.Caption:='Поток завершён';
end;
 }
procedure TMyThread.Execute;
var
 i,k,j:integer;
begin
 for j:=1 to 9 do
 for i:=1 to 9 do
  if m[i]>m[i+1] then
   begin
    k:=m[i];
    m[i]:=m[i+1];
    m[i+1]:=k;
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
  randomize;
  for i:=1 to 10 do
   m[i]:=random(100);
  MyThread:=TMyThread.Create(False);
  MyThread.Priority:=tpNormal;
  MyThread.FreeOnTerminate:=true;

end;

end.

[Stilet]

Точно так же.
Описываешь такой же класс как и TMyThread, но с другим именем и другой начинкой в Execute. А в главной пиши

  MyThread:=TMyThread.Create(True);
  MyThread.FreeOnTerminate:=true;
  MyThread.Resume;

  MyThread2:=TMyThread2.Create(True);
  MyThread2.FreeOnTerminate:=true;
  MyThread2.Resume;

И твои потоки начнут отрабатывать
НО! Массив для каждого потока должен быть свой отдельный

[Dmitriy90]

спасибо за помощь