Главная страница
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.017 c
14-25923
Cardinal
2004-02-14 15:19
2004.03.09
UPX Shell с ее защитой от декомпрессии


1-25738
-=zek=-
2004-02-26 22:03
2004.03.09
Изменение вида курсора


8-25833
dzmitry
2003-11-06 12:49
2004.03.09
CAD-формат


14-25864
Думкин
2004-02-17 10:54
2004.03.09
Задачка. Зачем ждать пятницы?


1-25731
Mihalich
2004-02-27 00:22
2004.03.09
Работа с файлом смешанного типа.