Мастера 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", а потом опять с нуля, и т.д.
Вот как это сделать.

Leonid Troyanovsky (2006-06-26 20:42:00) [61]

> Palladin © (26.06.06 20:33) [9]

> (sender as TButton).tag:=(sender as TButton).tag+1;

(tag+1) mod 11;

--
Regards, LVT.

Palladin (2006-06-26 20:33:00) [62]
ох господи... жуть... ладна :)

OnButton1Click
begin
(sender as TButton).tag:=(sender as TButton).tag+1;
ShowMessage('ну ты уже жмыкнул баттон '+inttostr((sender as tbutton).tag)+' раз');
end

Мефисто (2006-06-26 20:26:00) [63]
Fay © (26.06.06 20:18) [7]

Ню, образование у него еще только по анкете среднее, он еще маааааленький :) Но это не повод просить опенсоурце в наглую на халяву ;)

Fay (2006-06-26 20:18:00) [64]
Блин! Мне даже в голову не пришло, что у него вАщЕ никакого кода нет!
Я фигею...

2 b.o.n.d.007 © (26.06.06 20:01) [3]
> мне счётчик надо.
Тебе букварь надо.

Шпиён (2006-06-26 20:17:00) [65]

> Leonid Troyanovsky © (26.06.06 20:14) [5]

I - V - X - L.... Римская -)

Leonid Troyanovsky (2006-06-26 20:14:00) [66]

> b.o.n.d.007 © (26.06.06 19:43)

> Но цыфра должна увеличиваться до значения "10"

Это, наверное, одинацитиричная цифра.

--
Regards, LVT.

Пусик (2006-06-26 20:14:00) [67]

> b.o.n.d.007 © (26.06.06 20:01) [3]
> > У тебя ошибка в программе. В 17- строке.в какой программе?
> мне счётчик надо.

Ты учишься программировать или нет?
Тогда пытайся делать и показывай, что не получается.
За тебя никто писать программы не будет.

b.o.n.d.007 (2006-06-26 20:01:00) [68]

> У тебя ошибка в программе. В 17- строке.

в какой программе?

мне счётчик надо.

Шпиён (2006-06-26 20:00:00) [69]
Можно так:
var i:integer=0; //счетчик ................................ procedure TForm1.Button1Click(Sender: TObject); begin inc(i); if i > 10 then i:= 0; Label1.Caption:=IntToStr(i); end;

а можно вот так:
// например, при создании формы Label1.Caption := '0'; .......................................... procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin try i := StrToInt(Label1.Caption); except on EConvertError do i:=0; end; inc(i); if i > 10 then i:= 0; Label1.Caption:=IntToStr(i); end;

Fay (2006-06-26 19:52:00) [70]
У тебя ошибка в программе. В 17- строке.

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

Наверх

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