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

@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 не проще ли?.. Это в порядке рацухи.

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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

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