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;
쓰레드 예제 소스에 이렇게 되어있는데..
OnTerminate 는 변수선언된 부분도 없는것 같고.. 함수도 아닌것 같고..
뭐하는 놈이에요??
그리구..
OnTerminate := ThreadDone;
는 왜 해주는 거죠??
property OnTerminate: TNotifyEvent;
그러니깐 쓰레드가 끝나면 ThreadDone이라는 이벤트를 발생시킨다는 말인거 같네여?
드기 wrote:
> 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;
>
> 쓰레드 예제 소스에 이렇게 되어있는데..
> OnTerminate 는 변수선언된 부분도 없는것 같고.. 함수도 아닌것 같고..
> 뭐하는 놈이에요??
> 그리구..
> OnTerminate := ThreadDone;
> 는 왜 해주는 거죠??
>
>