|
#1
|
||||
|
||||
шетчик
Привет всем кто это читает. Не могли бы вы мне помочь с таким вопросом как сделать шетчик нашатия кнопки ?
|
#2
|
||||
|
||||
Ответ...
Уточни поподробнее, какой именно счётчик?
Если я тебя правильно понял ("Тебе нужно узнать, сколько раз нажали на кнопку за время работы приложения"), то это совсем простенькая задача. Ответ: Cоздаёшь в качестве переменной "Label1" (Caption = '0'), а в процедуре нажатия кнопки пишешь: procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1); end; |
#3
|
||||
|
||||
спасибо я немного был зациклен на этой записи :
procedure TForm1.Button1Click(Sender: TObject); var a:Integer; begin a:=0; Form1.Caption:=IntToStr(a+1); end; а так что не конает ,сложное писать получается а на легком иногда порюсь Спасибо за подсказку )) |
#4
|
||||
|
||||
Re
Конечно, я тоже постоянно допускаю подобные ошибки:
procedure TForm1.Button1Click(Sender: TObject); var a:Integer; begin a:=0; {Эта строчка - смерть для всей процедуры } Form1.Caption:=IntToStr(a+1); end; |
#5
|
||||
|
||||
а как тогда в таком случае начать отщет с нуля ?? помойму дело не тока в присваивании ((
|
#6
|
|||
|
|||
Код:
var Form1: TForm1; a:integer; Код:
procedure TForm1.Button1Click(Sender: TObject); begin a:=a+1; Form1.Caption:=IntToStr(a); end; |
#7
|
||||
|
||||
RE
Тоже правильно подмечено, aleksnine, здесь ведь Caption формы присваивается новое значение, а переменная остаётся той же (я этого не заметил), в итоге получается один и тот же результат. Хотя в нашем случае удобнее будет использовать мой способ, если нужно счётчик выводить на Caption формы, и не заморачиваться с этими переменными.
Код:
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Caption{Form1.Caption='0'} := IntToStr(StrToInt(Form1.Caption) + 1); end; Всё в одну строчку - простенько и со вкусом |