Приостановление выполнения процедуры до нажатия кнопки "Далее"!

← →
JOnyto (2004-10-29 09:24) [0]

Уважаемые Мастера, интересное решение такой задачи.
Создана процедура "Быстрой сортировки"(рекурсивный алгоритм).Нужно модернизировать ее так, чтобы впроцессе выполниения она приостанавливалась и выводила промежуточные значения временных переменных для просмотра пользователя.После просмотра пользователь должен нажатеть кнопку "Далее". Процедура должна продолжаться. Все это в цикле.Помогите, Плиззззз!!!!!!

← →
JOnyto (2004-10-29 09:26) [1]

Помогите пожалуйста, очень нужно.

← →
Vit@ly © (2004-10-29 09:32) [2]

Application.ProcessMessages;
+
модальная форма

← →
JOnyto (2004-10-29 09:36) [3]

Извените но модальная форма не приемлема в данном случае. Можно как либо по другому.

← →
JOnyto (2004-10-29 09:43) [4]

В дальнейшем планируется для тестирования пользователя приостанавливать процедуру запращивать значение переменных и если они не совпадают с текущими выдавать ошибку.

← →
Vit@ly © (2004-10-29 09:44) [5]

модальная форма для вывода на нее промежуточных результатов.
И интересно почему
> модальная форма не приемлема в данном случае
?

← →
JOnyto (2004-10-29 09:46) [6]

Такова постановка задача.

← →
Sandman25 © (2004-10-29 09:49) [7]

Тогда флаг использовать.

...
IsButtonDown := False;
while not IsButtonDown do
Application.ProcessMessages;
...
IsButtonDown := False;
while not IsButtonDown do
Application.ProcessMessages;
...

А в OnClick кнопки
IsButtonDown := True;

← →
JOnyto (2004-10-29 09:52) [8]

Sandman25 Большое спасибо!

← →
JOnyto (2004-10-29 09:54) [9]

Может кто знает как еще. Может API использовать, научить буду благодарен.

> JOnyto (29.10.04 09:46) [6]
> Такова постановка задача.

Интересная постановка задачи :-( "Вырежте гланды, но через ж..."

Можно с потоком поиграться.

http://delphimaster.net/view/15-1098979399/

Приостановление выполнения процедуры до нажатия кнопки "Далее"! Найти похожие ветки