Delphi7 - Почему Edit1.Text не выводит в цикле ?

[vldnik]

Подскажите начинающему. Вот фрагмент:

for I:=1 to 9999 do
begin
Edit1.Text := IntToStr(I);
end

Почему я не вижу мелькающих циферок (от 1 до 9999) в окне формы,
а вижу только конечное число 9999, когда цикл закончился ?
Такая же картина и с компонентами Label, Memo, StaticText ...
Читаю Фленова, Архангельского, но видимо что-то глобальное упустил
в самом начале. Подскажите.

[Xatr]

В самом цикле попробуйте написать:

Application.ProcessMessages;

[Chudo4258]

потому что цикл проходит очень быстро.
попробуй вот так

for I:=1 to 9999 do
begin
Edit1.Text := IntToStr(I);
sleep(1000);
end

[Xatr]

Это только затормозит цикл. Каждое число будет выводиться через 1 секунду после предыдущего. И выводить результат в Edit-е вряд-ли будет.
При выполнении цикла "вешается" вся программа, потому-что всё выполняется последовательно. И чтобы программа обновляла окно, требуется каждый раз выполнять функцию в посте 2.

[vldnik]

Благодарю за помощь.
Рекомендация (пост 2) - решение проблемы.
Рекомендация (пост 3) - не работает. Происходит точно, что
описал Xatr (пост 4).

Хотелось бы глубже разобраться в проблеме-почему так происходит.
Приведенный в посте 1 фрагмент - это лишь иллюстрация проблемы.
Понимаю, что форум - это не интерактивный курс обучения, поэтому
подскажите где и что почитать. У Фленова и Архангельского не нашел,
м.б. плохо искал ?

[Xatr]

почему так происходит

что именно так?
почему "виснет" прога при выполнении цикла?
Потому, что, как я писал выше, все команды программы выполняются последовательно одна за другой. Нну есть ветвление и повторение, но это тоже какая-то последовательность кода программы и при окончании кода, программа завершает свою работу и закрывается. В оконных программах нужно чтобы окно было постоянно видно, для этого непрерывно выполняются в цикле функции обновления окна. Пример WinAPI:

var a:TMsg;
while GetMessage(a,0,0,0) do begin
translatemessage(a);
dispatchmessage(a);
end;

Поэтому наше окно не закрывается просто так. Так как программа выполняет эти функции в циикле, то при поступлении сообщения "нажатие кнопки", эти функции не выполняются, а выполняется код, закреплённый за кнопкой. Поэтому кажется, что наше окно "зависло". на самом деле программа выполняет другой код. Для того, чтобы наше окно не "зависало" и служит такая функция, написанная в посте 2. Она обновляет окно и заодно переписывает все изменения, в частности в Edit.

форум - это не интерактивный курс обучения

может и нет, у каждого своё мнение, но помочь сможем

[vldnik]

что именно так?
почему "виснет" прога при выполнении цикла?

Нет. Я имел в виду проблему - пост 1.

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

Вот и я так полагал, а получается, что это не так. Ведь оператор
Edit1.Text := IntToStr(I);
находится в теле цикла, но не выполняется на каждом шаге, а для того, чтобы он выполнялся его надо предварить командой:
Application.ProcessMessages;
Ну, а цикл, в свою очередь является телом процедуры обработки нажатия на Button в окне главной формы.

Вот и хотелось бы разобраться:
Когда программа выполняется строго (гарантированно) последовательно,
а когда для этого надо предпринимать специальные меры (как в случае с функцией
Application.ProcessMessages; для вывода в форму на каждом шаге цикла.

[Serge_Bliznykov]

находится в теле цикла, но не выполняется на каждом шаге

Вы не поняли объяснения, данного Вам выше...

ваш цикл прекрасно выполняется и без всякого ProcessMessages!!! Это оператор нужен для совсем другого! Поймите, что Вы видите на форме не то, что находится в Edit1.Text, а то, что на форме отображается! Edit1 прекрасно изменяется (доказать легко. например, в цикле пишите значения в файл. потом посмотрите, что там записалось!)

А вот как раз, чтобы ОТОБРАЗИТЬ изменения и нужно обработать оконные сообщения (любой контрол (управляемый объект) в Windows управляется как раз получаемыми сообщениями), а ProcessMessages позволяет обработать очередь сообщений (таким образом, форма "оживает")!

[vldnik]

А-а-а-а ... Начинаю понимать.

Спасибо Xatr.
Спасибо Serge_Bliznykov.

А если ещё ткнёте носом, где об этом стройно и подробно изложено,
будет вообще здорово.