2. Счётчик нажатий на кнопку (Delphi)

Я видел как многие начинающие программисты испытывали затруднение в работе со счётчиками , они не могли понять саму логику их использования, если честно это вызывало у  меня недоумение. Данная программа хорошо демонстрирует работу счётчика.

Для начала нужно разместить на форме кнопку.

Затем два раза нажать на неё для создания процедуры


procedure TForm1.Button1Click(Sender: TObject);
begin


end;


После этого нужно прописать переменную типа Integer, назовём её count


var
  Form1: TForm1;
  count:integer;


Далее в ранее созданной процедуре нужно написать счётчик. Его значение будет изменяться
на 1


count:=count+1;


Теперь счётчик работает, он считает нажатие кнопки, но нужно вывести куда нибудь это значение. Пожалуй будет удобно вывести его прямо на кнопку. При каждом нажатии значение переменной count переводиться из целого числа (integer) в строковую (string), для этого понадобиться команда IntToStr. После чего это строковое значение, будет присвоено подписи кнопки.


button1.Caption:=inttostr(count);


Всё теперь счётчик работает и выводит значение на кнопку.

Весь код процедуры:



procedure TForm1.Button1Click(Sender: TObject);
begin
 count:=count+1;
 button1.Caption:=inttostr(count);
end;