Как прервать отсчёт таймера?

@Shoshona · Регистрация: 03.06.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте суть такова... У меня есть таймер в котором есть фунция

C++
1
2
3
4
5
6
if( Timer1->Tag == 0 )
  {
      Timer1->Enabled = false;
      ShowMessage("Игра окончена");
      Memo1->Lines->Clear();
  }

и есть функция, где я обнуляю таг:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void Bred::find2()
{   static bool trigger;
    if(Form2->Edit2->Text!="")
    {
        trigger ^= 1;
        a = trigger? Form2->Edit2->Text[Form2->Edit2->Text.Length()]: Form2->Edit1->Text[Form2->Edit1->Text.Length()];
        b = trigger? Form2->Edit1->Text[1]: Form2->Edit2->Text[1];
        if(a!=b)
          {
              ShowMessage("Буквы не сходятся!");
              Form2->Edit1->Text="";
              Form2->Edit2->Text="";
              Form2->Timer1->Tag=0;
          }
    }
}

Однако когда я вызываю функцию обнуление не работает... ход переходит к следующему оппоненту, то есть

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    DataModule4->ADOQuery1->Active = false;
    DataModule4->ADOQuery1->SQL->Clear();
    DataModule4->ADOQuery1->SQL->Add("SELECT COUNT (*) AS b FROM Sities WHERE name ='"+Edit1->Text+"'");
    DataModule4->ADOQuery1->Open();
 
     G.find();                                                         // тут счетчик должен обнулятся и игра заканчиватся, но...                                                                                             
    if (DataModule4->ADOQuery1->FieldByName("b")->AsInteger==0)
    {
       ShowMessage("Такого нет");
    }
    else
 
    {    // Он делает это!
   Timer1->Tag = 60;
   Timer1->Enabled = true;
    a=Edit1->Text;
   Edit2->Text="";
 
   Edit1->Enabled=false;
   Button1->Enabled=false;
   Edit2->Enabled=true;
   Button2->Enabled=true;
   ShowMessage("Хід гравця  "+Label4->Caption);
 }

Как мне сделать, чтоб если буквы не сходятся, игра останавливалась?

@BRcr · 18.07.2015, 17:55

А без обнуления тэгов сразу сделать timer->Enabled = false не проще ли?.. Это в порядке рацухи.

В остальном - построй блок-схему, продумай логику работы алгоритма. Если ты сперва вырубаешь таймер, а потом в следующих же строчках кода его врубаешь обратно, чего тут еще ожидать-то?

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	18.07.2015, 17:55
	А без обнуления тэгов сразу сделать timer->Enabled = false не проще ли?.. Это в порядке рацухи. В остальном - построй блок-схему, продумай логику работы алгоритма. Если ты сперва вырубаешь таймер, а потом в следующих же строчках кода его врубаешь обратно, чего тут еще ожидать-то? 0