Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

Цикл   Найти похожие ветки 

← →
Пл.   (2001-12-24 17:05) [0]

Как это
i:= StrToInt(fmMain.SGrid1.Cells[1,1])+StrToInt(fmMain.SGrid1.Cells[1,2])+StrToInt(fmMain.SGrid1.Cells[1,3])+..+StrToInt(fmMain.SGrid1.Cells[1,31]);
Запихнуть в цикл? Подскажите плз.

---

← →
Виктор Щербаков ©   (2001-12-24 17:09) [1]

Это что ли имел ввиду?
for j := 1 to 31 do
i := i + StrToInt(fmMain.SGrid1.Cells[1, i]);

---

← →
Пл.   (2001-12-24 18:27) [2]

Спасибо, именно это, тока не
for j := 1 to 31 do
i := i + StrToInt(fmMain.SGrid1.Cells[1, i]);
а
for j := 1 to 31 do
i := i + StrToInt(fmMain.SGrid1.Cells[1, j]);

:)

---

Страницы: 1 вся ветка

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.013 c