Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не понимаю циклы. Помогите. [D7, XP]

Страницы: < 1 2 3 4 >
b.o.n.d.007 © (2006-06-26 19:43:00)
Например. Есть одна надпись Label1 "0", при нажатии на кнопку Button1 надпись должна менятся на "1". С каждым новым нажатием, цыфра в надписи должна увеличиваться на "1" . Короче - Счётчик нажатий.
Но цыфра должна увеличиваться до значения "10", а потом опять с нуля, и т.д.
Вот как это сделать.

b.o.n.d.007 (2006-06-26 23:06:00) [41]
Я понимаю, что смешно (Вам), а вот мне как-то не очень. Если вдруг понадобилось написать прогу, вообще Делфи не проходя. Вот так взять и с нуля без знаний сделать.

Джо (2006-06-26 23:03:00) [42]
> [28] b.o.n.d.007 © (26.06.06 23:02)

Ну купи, наконец, книжку. Или скачай. Смешно же.

b.o.n.d.007 (2006-06-26 23:02:00) [43]
А вот без tag никак нельзя?
Ну, там, через FOR или ещё как.
Число, которое меняется при нажатии - "i" далее учавствует в формуле, как показатель периода, за который считается.

Fay (2006-06-26 22:56:00) [44]
2 Джо © (26.06.06 22:55) [25]
Ты только что всех нас сдал! 8)

Fay (2006-06-26 22:55:00) [45]
2 b.o.n.d.007 © (26.06.06 22:52) [24]
> Всё хотел спросить, а что такое "tag"?
Справки у тебя нет?

Джо (2006-06-26 22:55:00) [46]
> [24] b.o.n.d.007 © (26.06.06 22:52)
> Всё хотел спросить, а что такое "tag"?

Если хотел узнать, то научу как. Наводишь на это слово курсор и жмешь F1. Там будет сказано о нем не мало.

b.o.n.d.007 (2006-06-26 22:52:00) [47]
Всё хотел спросить, а что такое "tag"?

Fay (2006-06-26 22:47:00) [48]
const n = 4; procedure Tkursovik.onButton1Click(Sender: TObject); {$DEFINE WITH_ZERO} begin with (Sender as TButton) do begin {$IFDEF WITH_ZERO} Tag := (Tag + 1) mod (n + 1); {$ELSE} Tag := (Tag + 1) mod n; {$ENDIF} Label19.Caption := Format('Период %d-%d', [n, Tag]); end; end;

b.o.n.d.007 (2006-06-26 22:44:00) [49]

> Курсовик???!!!
>
> Ой. Мама.

Это всего лишь название Формы))

Virgo_Style (2006-06-26 22:42:00) [50]
b.o.n.d.007 © (26.06.06 22:38) [19]
Tkursovik

Курсовик???!!!

Ой. Мама.

b.o.n.d.007 (2006-06-26 22:39:00) [51]
n=4

b.o.n.d.007 (2006-06-26 22:38:00) [52]
procedure Tkursovik.onButton1Click(Sender: TObject);
begin

if (sender as TButton).tag<>n
then (sender as TButton).tag:=(sender as TButton).tag+1;

Label19.Caption:='Период n-'+IntToStr((sender as tbutton).tag);
end;

Мефисто (2006-06-26 22:36:00) [53]
Если под свои нужды не можем перелопатить готовое выше, тогда

Fay © (26.06.06 20:18) [7]

Уважайте труд отвечающих ;)

Fay (2006-06-26 22:32:00) [54]
2 b.o.n.d.007 © (26.06.06 22:30) [16]
Ну показывай, что ты написал.

b.o.n.d.007 (2006-06-26 22:30:00) [55]

> прочитай [10]

он запустит всё с начала? Я уже ограничел, что бы считало до 4, а нужно что при следующем нажатии было сново 1 и т.д.

Virgo_Style (2006-06-26 22:26:00) [56]
b.o.n.d.007 © (26.06.06 22:18) [14]

прочитай [10]

b.o.n.d.007 (2006-06-26 22:18:00) [57]

> Palladin © (26.06.06 20:33) [9]
> ох господи... жуть... ладна :)
>
> OnButton1Click
> begin
> (sender as TButton).tag:=(sender as TButton).tag+1;
> ShowMessage('ну ты уже жмыкнул баттон '+inttostr((sender
> as tbutton).tag)+' раз');
> end

Спасибо, я подставил своё - всё работает. Только один вопрос, как этот счётчик ограничить до 4 и дальше бы он считал по новой?

Fay (2006-06-26 21:38:00) [58]
2 b.o.n.d.007 © (26.06.06 21:31) [12]
Ладно, уговорил. Буквари можешьь не читать.

> сомневаюсь, что ты мастер по Делфи!!!
Всё! Пойду и застрелюсь! Не видать тебе больше моих прямотей!

З.Ы.
> отличи иот тебя
Не, всё-таки буквари пригодятся...

b.o.n.d.007 (2006-06-26 21:31:00) [59]

> Fay © (26.06.06 20:18) [7]
> Я фигею...
> Тебе букварь надо.

Взрослый человек, а ведёшь себя, как ребёнок, только бы по стибаться да по хи-хикать над кем-нибудь, кто знает меньше твоего.
Думаешь тебя не видно, можно делать всё что вздумается. Относись к людям с должным уважением.
Я не собираюсь оправдываться почему я этого не знаю. Не знаю, и всё!
Думал здесь люди понимающие, а оказалось... Ну может не все такие, но с "некоторыми" приходиться сталкиваться.
Спасибо тебе Fayза прямоты, сомневаюсь, что ты мастер по Делфи!!!

В отличии от тебя, тут мне хоть пытались помочь...

Palladin (2006-06-26 20:56:00) [60]
:) а, ну да... тз не внимательно прочитал, спасибо :)

Страницы: < 1 2 3 4 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »