Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.09;
Скачать: CL | DM;

Вниз

Всех с праздником! м вопросик заодно   Найти похожие ветки 

 
LAMER-XP   (2004-02-25 23:26) [0]

Всех с праздником!
Есть следующая проблема.
Есть переменная i которая равна нулю. И есть на форме кнопка. Как сделать так, чтобы на первое нажатие i=i+1, на второе нажатие i=i+2 и так до 40 нажатий кнопки. Я знаю, что можно как то отследить сколько раз была нажата кнопка, но как это сделать я не знаю…подскажите плиззз.


 
Palladin ©   (2004-02-25 23:32) [1]

так и пиши
i:=i+1

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


 
Gero ©   (2004-02-25 23:56) [2]

Button.OnClick:

if a <= 40 then
begin
i := i + a;
Inc(a);
end;
...
initialization
a := 1;


 
Islander   (2004-02-25 23:57) [3]

LAMER-XP не может знать что такое Initialization. Так что лучше написать это в Oncreate формы


 
Gero ©   (2004-02-25 23:59) [4]

> LAMER-XP не может знать что такое Initialization

Вы думаете, что у него на клаве не предусмотрена клавиша F1?


 
Defunct ©   (2004-02-26 00:19) [5]

Gero © (25.02.04 23:59) [4]
Помоему [1] самый верный ответ. LAMER-XP никак не мог понять, что переменная может быть i=i+1, с мат. точки зрения это парадокс.

Для простоты понимания пользуйтесь (эт если религия не позволяет писать выражения вида i:=i+1) процедурами "Увеличить/Уменьшить"

Inc(i, x); // Сделать I больше на X
Dec(i, x); // Сделать I меньше на X


 
Германн ©   (2004-02-26 01:08) [6]

2 Defunct © (26.02.04 00:19) [5]
По-моему, все-таки, самый верный ответ [2]. Но это уже связано с телепатией. :))

2 Gero © (25.02.04 23:59) [4]
>Вы думаете, что у него на клаве не предусмотрена клавиша F1?

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



Страницы: 1 вся ветка

Текущий архив: 2004.03.09;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
6-25847
alexEagle
2003-12-22 15:45
2004.03.09
OnExecute для TIdTCPClient


1-25783
Lena19
2004-02-26 11:02
2004.03.09
создание копии объекта


3-25681
sherminator
2004-02-11 13:17
2004.03.09
поиск в большой базе


1-25776
чайник1
2004-02-26 12:45
2004.03.09
Передать переменную


14-25899
Attrib
2004-02-16 10:07
2004.03.09
Сеть