Изменение переменной

[yura-cat]

Как сделать следующее: Изначально переменная равна нулю. при нажатии на кнопку к переменной прибавляется еденица, при следующем нажатии прибавляется еще еденица)
сделать 2 кнопки "+" и "-" , плюс прибавляет значение, минут отнимает значение.

[eoln]

Если Delphi, то есть компонент UpDown на вкладке Win32, если 2 отдельных кнопки, то так

var
  Form1: TForm1;
  k: integer = 0;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(k)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  dec(k)
end;

[AngelOfDeath]

Или вот так:

var
  Form1: TForm1;
  i: integer = 0;
////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
i:=i-1;
end;

Что более читабельно и понятно)
Вот те ещё способ задать стартовое значение переменной:

var
  Form3: TForm3;
  I:Integer;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
  I:=0;
end;

[yura-cat]

Большое спасибо) Я понял свою ошибку! я не умел задавать стартовое значение переменной
и писал переменную каждый раз в кнопку. получалось что кнопка принимала значение 0, и каждый раз просто прибавляла.. получался один результат. Теперь я знаю про " k: integer = 0;" и знаю куда добавить =) спасибо за помощь

[puporev]

inc(i,5) или i:=i+5;

[eoln]

прибовляла к примеру не +1 , а +5

inc(k, 5) или i:=i+5;
А вот если надо +6 или +7, то тут уже не знаю как...

[yura-cat]

i:=i+6; ?)

[Serge_Bliznykov]

:D:D:D
yura-cat, просто eoln прикалывается... ;-)