Доброго времени суток. Столкнулся с проблемой. После нажатия кнопки start, происходит некоторая последовательность действий. При этом на форме должны обновляться счетчики.
| Код |
void __fastcall TForm1::StartButtonClick(TObject *Sender)
{
StartButton->Enabled = false;
StopButton->Enabled = true;
/*
объявление переменных
*/
while(!feof(fp)){
fgets(str, 18, fp);
str[19]='\0';
strncpy(str1,str,strlen(str)-strlen(strstr(str,";")));
strcpy(str2,strstr(str,";")+1);
result = /*выполняется определенное действие */
if (result == 16){
int i;
i = BadCount->Caption.ToInt();
i++;
BadCount->Caption = IntToStr(i);
}
if (result > 1000){
int i;
i = GoodCount->Caption.ToInt();
i++;
GoodCount->Caption = IntToStr(i);
}
}
StartButton->Enabled = true;
StopButton->Enabled = false;
}
|
Проблема заключается в том, что счетчики на форме не обновляются во время работы этой функции, а только после ее завершения. |