Отнимать значение по нажатию на кнопку

[artemavd]

Доброе утро! Захотелось сделать, чтобы от одного значения отнималась единица, т.е. значение уменьшалось и результат выводился в другое место. Написал так:

procedure TMainForm.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var
 i: integer;
begin
 i:=1;
 if Key = #13 then
 begin
  MainForm.StringGrid1.RowCount:=MainForm.StringGrid1.RowCount + 1;
  MainForm.StringGrid1.Row:=MainForm.StringGrid1.RowCount - 1;
  MainForm.Label31.Caption:=IntToStr(StrToInt(MainForm.Label30.Caption) - i);
 end;
end;

но, значение уменьшается только один раз. Подскажите как реализовать это? Через Dec(i) или еще как..

[Utkin]

А сколько раз надо?

MainForm.Label31.Caption:=IntToStr(StrToInt(MainForm.Label30.Caption) - i);

Это как-то интересно выглядит... Заведите себе переменную, что Вам 4-е байта жалко? Такие манипуляции с видимыми компонентами очень замедляют работу программы.

[artemavd]

В смысле сколько раз надо? Пока значение от которого отнимает не станет равно 0

[Utkin]

Если я правильно понял задумку, то i должна быть глобальной переменной, иначе при каждом входе i будет равен 1.

[artemavd]

Сделал переменную i глобальной, проинициализировал ее при создании формы и поставил начальное значение = 1, но все равно отнимает только один раз

[Utkin]

Еще раз. Почему один раз? Вы нажимаете на клавишу, он отнимает, нажимаете, отнимает. Верно или нет?
Отнять ведь надо от MainForm.Label30.Caption ?

[artemavd]

Отнять ведь надо от MainForm.Label30.Caption?

Да, от него. Я нажимаю на кнопку, а значение отнимается только один раз. Нажимаю еще раз и больше не отнимается.

[Utkin]

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

Да, от него. Я нажимаю на кнопку, а значение отнимается только один раз. Нажимаю еще раз и больше не отнимается.

По-моему и не должно . Переменная i, где-нибудь увеличивается или всегда равно единице?

[artemavd]

Она всегда равна единице. Нет, нигде больше не увеличивается.

[Utkin]

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

Она всегда равна единице. Нет, нигде больше не увеличивается.

А не плохо бы увеличивать , здесь же в условии. По двум причинам - потому что, я так понял, что значение от которого вычитают либо не изменяется, либо изменяется редко. Во-вторых, нафига тогда i? Можно просто вычитать единицу .
Чтобы такой путаницы не происходило - комментируйте каждую строку того участка кода, который Вы плохо представляете. В идеале нужно комментировать каждую строку программы. Причем комменты должны быть осмысленными - не просто вычтем единицу из Капшена , а например, уменьшим число строк таблицы. Это позволяет разобраться в программе, кроме того прописывая такие комменты, Вы невольно проговариваете алгоритм про себя, а это способствует поиску и устранению ошибок и вообще лучшему понимаю работы той или иной функции.
Далее хранение обычных числовых данных в строке не имеет смысла, если имеются стандартные средства для хранения таких данных. Далее компоненты следует использовать по назначению - Лейбл предназначен для отображения информации, а не для ее хранения. Это медленно и не удобно. Я уже молчу о том, что Label31 - одно из самых неудачных названий, имена должны быть осмысленными. Короткие однобуквенные или стандартные имена присваиваемые Дельфи даются обычно только переменным или компонентам, несущим кратковременный и вспомогательный характер. Так и поступайте - храните данные в переменной, а в Лейбле отображайте ее. Ряд таких несложных правил значительно ускоряют отладку. Ну это все мое ИМХО, дело Ваше. Просто имея определенную методику, немного замедляющим процесс написания программы можно значительно ускорить процесс отладки, а также спасти пару клоков шерсти под подмышками.