Hallo,

ich versuche gerad die Threads zu verstehen, ich wollte dieses Beispiel so abändern das QuickSort erst nach den anderen zwei sortierverfahren startet. Wie stell ich das in dieser Procedur an.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TThreadSortForm.StartBtnClick(Sender: TObject);
var x:Cardinal;
begin
  //for x:=0 to 10do
  begin
  RandomizeArrays;
  ThreadsRunning := 3;

  with TBubbleSort.Create(BubbleSortBox, BubbleSortArray) do
    OnTerminate := ThreadDone;
   // Synchronize;
  with TSelectionSort.Create(SelectionSortBox, SelectionSortArray) do
    OnTerminate := ThreadDone;
 // Dec(ThreadsRunning);
 // if ThreadsRunning = 1 then
 //MsgWaitForMultipleObjects;
  begin
  with TQuickSort.Create(QuickSortBox, QuickSortArray) do
  Begin
    OnTerminate := ThreadDone;
  end;
  end;
  StartBtn.Enabled := False;
  end;
end;

Sicherlich ist dieses verhalten durch so eine Art schleife zu bewirken, indem ich den Threadzähler auf 2 setzte und Quicksort hier herein kopiere, dock ist die Methodik doch reichlich unelegant find ich?Kann man so was nicht auch durch eine normale schleife erreichem?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TThreadSortForm.ThreadDone(Sender: TObject);
begin
  Dec(ThreadsRunning);
  if ThreadsRunning = 0 then
  begin
    with TQuickSort.Create(QuickSortBox, QuickSortArray) do
  Begin
    OnTerminate := ThreadDone;
  end;
    StartBtn.Enabled := True;
    ArraysRandom := False;
    Label4.Caption:='2';
    ThreadSortForm.StartBtn.Click;
      end;
end;