[Sharky]

Привет всем кто это читает. Не могли бы вы мне помочь с таким вопросом как сделать шетчик нашатия кнопки ?

[NCD]

Уточни поподробнее, какой именно счётчик?

Если я тебя правильно понял ("Тебе нужно узнать, сколько раз нажали на кнопку за время работы приложения"), то это совсем простенькая задача.
Ответ:
Cоздаёшь в качестве переменной "Label1" (Caption = '0'), а в процедуре нажатия кнопки пишешь:

procedure TForm1.Button1Click(Sender: TObject);
begin

Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1);

end;

[Sharky]

спасибо я немного был зациклен на этой записи :
procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
begin
a:=0;
Form1.Caption:=IntToStr(a+1);
end;
а так что не конает ,сложное писать получается а на легком иногда порюсь
Спасибо за подсказку ))

[NCD]

Конечно, я тоже постоянно допускаю подобные ошибки:

procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
begin
a:=0; {Эта строчка - смерть для всей процедуры }
Form1.Caption:=IntToStr(a+1);
end;

[Sharky]

а как тогда в таком случае начать отщет с нуля ?? помойму дело не тока в присваивании ((

[aleksnine]

Код:

var
  Form1: TForm1;
  a:integer;

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=a+1;
Form1.Caption:=IntToStr(a);
end;

[NCD]

Тоже правильно подмечено, aleksnine, здесь ведь Caption формы присваивается новое значение, а переменная остаётся той же (я этого не заметил), в итоге получается один и тот же результат. Хотя в нашем случае удобнее будет использовать мой способ, если нужно счётчик выводить на Caption формы, и не заморачиваться с этими переменными.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin

Form1.Caption{Form1.Caption='0'} := IntToStr(StrToInt(Form1.Caption) + 1);

end;

Всё в одну строчку - простенько и со вкусом