Увеличение переменной на +1,при нажатии.

[Vlad1698]

Здравствуйте.
procedure TForm1.Button1Click(Sender: TObject);
var p:integer;
begin
p:=0+1;
Label1.Caption:=IntToStr(p);
end;
Подскажите как сделать ,чтобы при повторном нажатии на клавишу было p+1
т.е. после второго нажатия p=2 , после третьего p=3 и т.д.
Спасибо

[Аватар]

p:=0+1;

Это как понимать? Интересно просто.

Переменную не здесь объявить. Лучше в private формы.
Загрузить в неё начальное значение при создании формы.
В OnClick просто Inc(p);

[FleXik]

var
  p:integer;
 begin
   p:=StrToInt(Label1.Caption);
   p:=p+1;
   Label1.Caption:=IntToStr(p);
 end;

[Vlad1698]

Сообщение от Аватар

Это как понимать? ;

ну т.е. при нажатии на баттон1 p увеличивается на 1 но работает это 1 раз только,а мне нужно чтобы при каждом нажатии было +1
.я слаб в делфи может не понимаю чего.

[FleXik]

Vlad1698, выше готовый, рабочий, код, в Label1.Caption только цифру 0 впиши.

[Аватар]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    p: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  p:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(p);
  Label1.Caption:=IntToStr(p);
end;

end.

[northener]

Сообщение от FleXik

Vlad1698, выше готовый, рабочий, код, в Label1.Caption только цифру 0 впиши.

И объявление переменной р вынеси из процедуры наружу.

[Vlad1698]

Сообщение от FleXik

var
  p:integer;
 begin
   p:=StrToInt(Label1.Caption);
   p:=p+1;
   Label1.Caption:=IntToStr(p);
 end;

Попробывал.Выдает такую ошибку.
http://s8.uploads.ru/2B3EM.jpg

[northener]

2 Аватар

procedure TForm1.FormCreate(Sender: TObject);
begin
  p:=0;
end;

Перестраховался?

[FleXik]

Аватар, тоже думал на OnCreate кидать, но потом почему-то подумал что счетчик будет обнуляться :D хотя все правильно


Vlad1698, я же написал, в Label1.Caption введи цифру 0

И объявление переменной р вынеси из процедуры наружу.

в моем примере этого не нужно делать если ТС не будет использовать переменную p в других процедурах, а если будет, то выносить конечно нужно.