Kleopatra

Дан код .
with TBubbleSort.Create(BubbleSortBox, BubbleSortArray, label4) do
OnTerminate := ThreadDone;
with TSelectionSort.Create(SelectionSortBox, SelectionSortArray, label5) do
OnTerminate := ThreadDone;
with TQuickSort.Create(QuickSortBox, QuickSortArray, label6) do
OnTerminate := ThreadDone;
Нужно сделать так,чтобы работало без with....do, нужно заменить его другим...это связано с create .

AlexZir

Какие сообщения выдает при обработке кода с with...do? И при чем тут событие OnCreate?

Kleopatra

никаких не выдаёт,всё работает хорошо. только нужно как-то обойтись без него, чтобы всё также работало...я незнаю как по другому можно написать

Kleopatra

и препод намекнул,что что-то с связано с create

AlexZir

Для перечисленных компонентов в окне свойств выберите событие OnCreate, произведите на нем двойной щелчок и пропишите во вставленной в код процедуре соответствующую команду. После этого можно избавиться от приведенного листинга.