Главная страница
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.03 c
1-25754
Leech
2004-02-26 13:37
2004.03.09
OnMouseMove


6-25835
redacid
2004-01-04 01:56
2004.03.09
Разрешение IP Address в имя на Win 98 SE


1-25772
Tatyana
2004-02-26 14:21
2004.03.09
#0, AccessViolation


14-25885
Andryk
2004-02-12 11:45
2004.03.09
Давайте еще раз пообсуждаем наш закон об ОСАГО


14-25861
Кен
2004-02-15 04:35
2004.03.09
То метро, то аквапарк. Страшно жить. Как быть ?