| sim |
| Отправлено: 19.08.2003, 08:05 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 39
|
Уважаемые господа. Случайно сталкнулся с такой проблемой:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{float f=0;
m1:
с->Caption=f;
f=f++;
goto m1;
}
//---------------------------------------------------------------------------
Предполагается что в Label1 будут бегать быстро, быстро цифирки.
А на самом деле их нет. А как можно постоянно обновлять экран?
Спасибо. |
|
| Gedeon |
| Отправлено: 19.08.2003, 09:35 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Ну не пойму я почему такой код, но чтобы он работал у тебя:
| CODE |
float f=0;
m1: C->Caption=f;
f=f++;
Application->ProcessMessages();
goto m1; |
А вообще я бы это делал с помощью TTimer, но если это тебя не устраивает, ну сделай лучше так:
| CODE |
float f=0;
bool Run=true; /*Переменная, отвечающая за окончание процесса ведь он должен
когда-либо остановиться*/
while(Run){ /* если Run будет false то выполнение остановится*/
C->Caption=f;
f=f++;
Application->ProcessMessages(); |
|
|
