KeyPressed

@sadomaza · Регистрация: 22.09.2010

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

Помогите... У меня в программе KeyPressed встречается несколько раз... Первый раз все работает, а последующие нет, потому что как бы данные вводились и программа думает что кнопки уже нажимались. Мне надо как то обновить содержимое KeyPressed, что бы оно каждый раз в программе думало что кнопки еще не нажимались...

@Sanyco-007 · 30.09.2010, 23:02

Выложи код программы...

@sadomaza · 30.09.2010, 23:13 **[ТС]**

Ой, она большая... щас попробу кинуть часть кода...

вот в этой части все работает на отлично

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
start:
           randomize;
           i:=random(600)+240;
           repeat
                 dec(i);
                 delay(1000);
                 if(i=0) then
                 begin
                      goto timeout;
                 end;
           until KeyPressed;
           begin
                readln(slov);
                goto good;
           end;
           timeout:
                   begin
                   textcolor(0);
                   time:=CurrentDateTime;
                   writeln;
                   writeln(,time.year,'.',time.month,'.',time.day,' ',time.hour,':',time.minute,':',time.second,', Бот');
                   writeln('Ау, ты там?');
                   start1:
                          kr:=5;
                          repeat
                                dec(kr);
                                randomize;
                                i:=random(600)+240;
                                repeat
                                      dec(i);
                                      delay(1000);
                                      if(i=0) then
                                      begin
                                           goto timeout1;
                                      end;
                                until KeyPressed;
                                textcolor(15);
                                begin
                                     readln(slov);
                                     goto good;
                                end;
                                timeout1:
                                         begin
                                              textcolor(0);
                                              reset(ay);
                                              for i:=1 to k[4] do
                                              begin
                                                   read(ay,slov2[i]);
                                                   readln(ay);
                                              end;
                                              randomize;
                                              j:=random(k[4])+1;
                                              time:=CurrentDateTime;
                                              writeln;
                                              writeln(,time.year,'.',time.month,'.',time.day,' ',time.hour,':',time.minute,':',time.second,', Бот');
                                              writeln(slov2[j]);
                                         end;
                               if(kr=0) then
                               begin
                                    ob:=true;
                                    goto finish;
                               end;
                          until kr=0;
                   end;

Но потом у меня в конце программы такая же часть стоит, и там KeyPressed срабатывает как уже нажатая клавиша, потому что до него в программу вводится куча всего...

@Sanyco-007 · 30.09.2010, 23:31

Попробуй использовать там где проскакивает:

Pascal
1
2
3
           repeat
              ............
           until KeyPressed and (ReadKey = #13);

#13 - это Enter или используй другую клавишу

@sadomaza · 01.10.2010, 00:27 **[ТС]**

Спасибо, я кое что еще изменил, теперь работает так как мне надо

@Puporev · 01.10.2010, 08:43

Pascal
1
2
3
4
5
6
7
if keypressed then
 begin
  c:=readkey;
  case c of
  ............
  end;
until c=#27;//Esc

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@sadomaza 0 / 0 / 0 Регистрация: 22.09.2010 Сообщений: 7

	KeyPressed 30.09.2010, 23:00. Показов 12618. Ответов 5 Метки нет (Все метки) Помогите... У меня в программе KeyPressed встречается несколько раз... Первый раз все работает, а последующие нет, потому что как бы данные вводились и программа думает что кнопки уже нажимались. Мне надо как то обновить содержимое KeyPressed, что бы оно каждый раз в программе думало что кнопки еще не нажимались... 0

@Sanyco-007 41 / 41 / 20 Регистрация: 10.02.2010 Сообщений: 179
	30.09.2010, 23:02
	Выложи код программы... 0

@sadomaza 0 / 0 / 0 Регистрация: 22.09.2010 Сообщений: 7
	01.10.2010, 00:27 [ТС]
	Спасибо, я кое что еще изменил, теперь работает так как мне надо 0