procedure TThreadSortForm.StartBtnClick(Sender: TObject);

begin

RandomizeArrays;

ThreadsRunning := 3;

with TBubbleSort.Create(BubbleSortBox, BubbleSortArray) do

OnTerminate := ThreadDone;

with TSelectionSort.Create(SelectionSortBox, SelectionSortArray) do

OnTerminate := ThreadDone;

with TQuickSort.Create(QuickSortBox, QuickSortArray) do

OnTerminate := ThreadDone;

StartBtn.Enabled := False;

end;

이러케해서 쓰레드를 생성시켰더군요.



쓰레드를 보면..

TSortThread = class(TThread)

private

FBox: TPaintBox;

FSortArray: PSortArray;

FSize: Integer;

FA, FB, FI, FJ: Integer;

procedure DoVisualSwap;

protected

procedure Execute; override;

procedure VisualSwap(A, B, I, J: Integer);

procedure Sort(var A: array of Integer); virtual; abstract;

public

constructor Create(Box: TPaintBox; var SortArray: array of Integer);

end;



{ TBubbleSort }



TBubbleSort = class(TSortThread)

protected

procedure Sort(var A: array of Integer); override;

end;



{ TSelectionSort }



TSelectionSort = class(TSortThread)

protected

procedure Sort(var A: array of Integer); override;

end;



{ TQuickSort }



TQuickSort = class(TSortThread)

protected

procedure Sort(var A: array of Integer); override;

end;



각각 상속을 받아서....





constructor TSortThread.Create(Box: TPaintBox; var SortArray: array of Integer);

begin

FBox := Box;

FSortArray := @SortArray;

FSize := High(SortArray) - Low(SortArray) + 1;

FreeOnTerminate := True;

inherited Create(False);

end;



이케 생성을 시키거든여. 각각의 상속받은 클래스가 이놈을 호출하는건 알겠는데...

inherited Create(False); 왜 선조클래스의 Create(False)를 호출하는겁니까?