Динамическая Индикация на Label или Edit

[ддимочка]

Здравствуйте всем! Столкнулся с совершенно неожиданной проблемой. Когда пытаюсь во время выполнения цикла for изменять значения полей Label или Edit (которые в каждом новом проходе обновляются), то программа соответствующие строки кода игнорирует. Только когда цикл заканчивается, в данные поля записываются последние значения. Во время всех проходов цикла, повторюсь, поля пустые. Вот код

for(a=0; a<k; a++)
{
Edit4->Text=FloatToStr(t);
t=t/0.004883 ; // формируем значение для ЦАП
// далее округляем полученное значение
i=t;
if ((t-i)>=0.5)
i=t+(1-(t-i));
else
i=t;
// формируем последовательность байтов для отправки
buf[0]=i%10;// младший разряд
buf[1]=((i-buf[0])/10) %10 ;
buf[2]=((i-buf[0]-(buf[1]*10))/100) % 10;
buf[3]=((i-buf[0]-(buf[1]*10)-(buf[2]*100))/1000) % 10;// старший разряд
buf[4]=1;
WriteFile(com_handle, buf, 5, &bc, 0); // отправляем данные в порт
for (i=0; i<1000000000; i++);
ReadFile(com_handle, buf1, 4, &bc, 0);
i=buf1[0]+buf1[1]*10+buf1[2]*100+buf1[3]*1000;
Edit5->Text=FloatToStr(i*0.0025);
t=(t*0.004883)+n;

Выделенные строки игнорируются программой. На месте Edit c равным успехом может стоять и Label

[BDA]

Добавьте в цикл Sleep(100), например (мб "поможет")

[nick42]

А перерисовку ( Repaint(); ) в цикл добавлять не пробовали? (если действительно есть шанс что-то рассмотреть после каждой итерации).

[ддимочка]

Спасибо! перерисовка помогла

[raxp]

...внутри циклов и из потоков к VCL лучше вообще не обращаться. Самый говноспособ это просто поставить Application.ProcessMessages внутри, но это дает задержку в обработке из-за необходимости отработки очереди сообщений для формы. Для потоков - синхронизе. Еще один обходной способ, годящийся и для потоков и циклов для визуализации (индикации, но не архивирования!) это работать с глобальной переменной, а уже из другого потока или в потоке таймера отображать в метке (ваших label-ях) значение этой/их global var.