Как организовать цикл, завершающийся по нажатию кнопки

@Bugmenot1 · Регистрация: 02.10.2015

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

Есть задача выводить на экран многозначные числа. Нажимаем на 1, выводится 1, еще раз нажимаем 1, выводится 11. Как сделать, чтобы он выводил эту единицу, пока мы не нажмем число 2, и вместо 11 появится 2. Есть идея организовать через repeat until, но не знаю как

@qwertehok · 20.10.2015, 16:53

у вас паскаль или дельфи?

@Immo · 20.10.2015, 16:53

зачем тут вообще цикл?куда выводить цифры будешь?

@Bugmenot1 · 20.10.2015, 16:56 **[ТС]**

Добавлено через 17 секунд

Сообщение от qwertehok

у вас паскаль или дельфи?

дельфи

Добавлено через 30 секунд

Сообщение от Immo

куда выводить цифры будешь?

В label

@qwertehok · 20.10.2015, 16:56

Bugmenot1,
ну выводите в таймере свою единицу, пока не нажата двойка

@Bugmenot1 · 20.10.2015, 17:00 **[ТС]**

Сообщение от qwertehok

выводите в таймере

это нужно как то вывести в label

@Immo · 20.10.2015, 17:05

у тебя 2 кнопки на форме, когда жмешь "1" в лейбл пишется 1, еще раз и 11 и так после каждого нажатия?или ты жмешь 1 и в цикле выводится 1,11,111,1111.....?

@Bugmenot1 · 20.10.2015, 17:07 **[ТС]**

Сообщение от Immo

когда жмешь "1" в лейбл пишется 1, еще раз и 11

еще раз "1", в лэйбл выводится 111
именно так. Чтобы лучше понять можно глянуть калькулятор в Windows, примерно так нужно организовать

@qwertehok · 20.10.2015, 17:07

Bugmenot1,
на Onkeypress запускай таймер и выводи каждую секунду "1"
если нажата двоечка - выводи "2"

в чем вопрос?
код за тебя написать?

@Bugmenot1 · 20.10.2015, 17:11 **[ТС]**

Сообщение от qwertehok

на Onkeypress запускай таймер и выводи каждую секунду "1"
если нажата двоечка - выводи "2"

Вы меня не правильно поняли

Есть на панели кнопочка "1", когда я ее нажимаю, в лэйбл выводится "1", если еще раз нажму кнопку с единицей, в лэйбл выведется "11", еще раз нажму, выведется "111", и нужно так продолжать, пока я не нажму другую кнопку, например "2", тогда в лэйбл выведется "2", вместо "111"

@qwertehok · 20.10.2015, 17:15

Bugmenot1,
это вы меня не поняли

Используйте ТАЙМЕР.
нажимайте кнопку - пишите button1click(self);

и все.

@Immo · 20.10.2015, 17:26

Delphi

procedure TForm1.AddLetter(x: string);
begin
if pos(x,Label1.Caption)<>0 then
   label1.Caption:=label1.Caption+x
else begin
   label1.Caption:='';
   label1.Caption:=label1.Caption+x
 end;
end;

@qwertehok · 20.10.2015, 17:31

ааааааааааааа, оно не само должно вводиться

Не по теме:

как то я все усложнил

@Bugmenot1 · 20.10.2015, 17:37 **[ТС]**

Immo,
То что нужно, спасибо!

Добавлено через 1 минуту
qwertehok,
а я сидел, курил мануалы, думал чего то не догоняю

@qwertehok · 20.10.2015, 17:39

Bugmenot1, а ты сам не мог взять последний символ введенного текста и проанализировать?

@Bugmenot1 · 20.10.2015, 17:47 **[ТС]**

Сообщение от qwertehok

button1click(self);

из за этого у меня вообще весь дельфи повис и умер(

@qwertehok · 20.10.2015, 17:49

Bugmenot1, ты не умеешь его готовить

это эмуляция нажатой кнопки

@qwertehok 5486 / 4401 / 1076 Регистрация: 29.08.2013 Сообщений: 27,576 Записей в блоге: 3
	20.10.2015, 17:31	13
	ааааааааааааа, оно не само должно вводиться Не по теме: как то я все усложнил 1

@Bugmenot1 4 / 4 / 1 Регистрация: 02.10.2015 Сообщений: 40
	20.10.2015, 17:37 [ТС]	14
	Immo, То что нужно, спасибо! Добавлено через 1 минуту qwertehok, а я сидел, курил мануалы, думал чего то не догоняю 0

@qwertehok 5486 / 4401 / 1076 Регистрация: 29.08.2013 Сообщений: 27,576 Записей в блоге: 3
	20.10.2015, 16:53	2
	у вас паскаль или дельфи? 0

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	20.10.2015, 16:53	3
	зачем тут вообще цикл?куда выводить цифры будешь? 0

@Bugmenot1 4 / 4 / 1 Регистрация: 02.10.2015 Сообщений: 40
	20.10.2015, 16:56 [ТС]	4
	Добавлено через 17 секунд Сообщение от qwertehok у вас паскаль или дельфи? дельфи Добавлено через 30 секунд Сообщение от Immo куда выводить цифры будешь? В label 0

@qwertehok 5486 / 4401 / 1076 Регистрация: 29.08.2013 Сообщений: 27,576 Записей в блоге: 3
	20.10.2015, 16:56	5
	Bugmenot1, ну выводите в таймере свою единицу, пока не нажата двойка 0

@Bugmenot1 4 / 4 / 1 Регистрация: 02.10.2015 Сообщений: 40
	20.10.2015, 17:00 [ТС]	6
	Сообщение от qwertehok выводите в таймере это нужно как то вывести в label 0

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	20.10.2015, 17:05	7
	у тебя 2 кнопки на форме, когда жмешь "1" в лейбл пишется 1, еще раз и 11 и так после каждого нажатия?или ты жмешь 1 и в цикле выводится 1,11,111,1111.....? 0

@Bugmenot1 4 / 4 / 1 Регистрация: 02.10.2015 Сообщений: 40
	20.10.2015, 17:07 [ТС]	8
	Сообщение от Immo когда жмешь "1" в лейбл пишется 1, еще раз и 11 еще раз "1", в лэйбл выводится 111 именно так. Чтобы лучше понять можно глянуть калькулятор в Windows, примерно так нужно организовать 0

@qwertehok 5486 / 4401 / 1076 Регистрация: 29.08.2013 Сообщений: 27,576 Записей в блоге: 3
	20.10.2015, 17:07	9
	Bugmenot1, на Onkeypress запускай таймер и выводи каждую секунду "1" если нажата двоечка - выводи "2" в чем вопрос? код за тебя написать? 0

@Bugmenot1 4 / 4 / 1 Регистрация: 02.10.2015 Сообщений: 40
	20.10.2015, 17:11 [ТС]	10
	Сообщение от qwertehok на Onkeypress запускай таймер и выводи каждую секунду "1" если нажата двоечка - выводи "2" Вы меня не правильно поняли Есть на панели кнопочка "1", когда я ее нажимаю, в лэйбл выводится "1", если еще раз нажму кнопку с единицей, в лэйбл выведется "11", еще раз нажму, выведется "111", и нужно так продолжать, пока я не нажму другую кнопку, например "2", тогда в лэйбл выведется "2", вместо "111" 0

@qwertehok 5486 / 4401 / 1076 Регистрация: 29.08.2013 Сообщений: 27,576 Записей в блоге: 3
	20.10.2015, 17:15	11
	Bugmenot1, это вы меня не поняли Используйте ТАЙМЕР. нажимайте кнопку - пишите button1click(self); и все. 0

	20.10.2015, 17:49

@qwertehok 5486 / 4401 / 1076 Регистрация: 29.08.2013 Сообщений: 27,576 Записей в блоге: 3
	20.10.2015, 17:39	15
	Bugmenot1, а ты сам не мог взять последний символ введенного текста и проанализировать? 0

@Bugmenot1 4 / 4 / 1 Регистрация: 02.10.2015 Сообщений: 40
	20.10.2015, 17:47 [ТС]	16
	Сообщение от qwertehok button1click(self); из за этого у меня вообще весь дельфи повис и умер( 0