[insidefuture]

Привет,

Я хочу сделать чтоб каждый раз нажимая на кнопку моя цыфпа с компонента edit.text1 увеличивалась бы на 1.
Если ввожу например 5 то нажав на кнопку должно быть 6 еще раз нажымаю - 7.

У меня только получается один раз повысить на +1, а дальше не увеличивается.

Спасибо за помощ начинающему.

[PhoeniX]

Код:

  Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);

[insidefuture]

большое спасибо,

а как тогда сделать чтобы у меня цыфра n:=1; после каждого нажатия на кноку повышалась на +1 ?

Код:

n:=1;
n:=n+1;
label1.Caption:=inttostr(n);

и мне постоянно выводит 2

Aristarh Dark: Используем тэги, при рецидиве - бан

[PhoeniX]

Любимая фраза здешних модеров: "Хде теги???"

объяви её ВНЕ проседуры, и инициализируй один раз (например, при создании формы).
И вместо

Код:

n:=n+1;

юзай

Код:

inc(n);

[0nni]

В паскале нельзя объявлять static переменные, но можно сделать так. А глобальные переменные зло =)

Код:

{$J+}
function GetNextI : Integer;
const
  i : Integer = 0;
begin
  i := i + 1;
  Result := i;
end;
{$J-}

[PhoeniX]

про глобальные переменные категорически не согласен.
ИМХО (см. подпись), "переменные константы" и лишние процедуры - это извращение.

[0nni]

почему лишние процедуры? что мешает тот же код поместить в обработчик onClick?
В крайнем случае можно сделать переменную экземпляром класса. TForm1.

Простой пример "зла": что ,будет если создать два экземпляра TForm1? Ничего хорошего.
Хотя константы имеют тот же эффект, но глаза не мазолят - написал и забыл.

[Aristarh Dark]

Господа, не нужно холиварить
Хотите статик переменную - создайте поле формы и/или объекта для которого она нужна.