сложение в табл StringGrid

22.12.2012, 20:25. **Показов** 793. **Ответов** 5

Author24 — интернет-сервис помощи студентам

Имеются 2 таблицы StringGrid1 - 4строки и 4столбца и StringGrid2-1 столбец и 4 строки ,
как запрограммировать Button1 чтобы сумма значений 1 строки табл StringGrid1 выводилась в 1 строку табл StringGrid2
и так 2 3 и 4 строки расчитывали сумму из первой табл во вторую?

@Puporev · 22.12.2012, 20:46

Delphi

for i:=0 to 3 do
 begin
   s:=0;
   for j:=0 to 3 do
   s:=s+strtoint(sg1.cells[i,j]);
   sg2.cells[0,i]:=inttostr(s);
 end;

23.12.2012, 00:19

по подробней если можно а то ошибку выдает

23.12.2012, 00:28

Ошибка на не числовое значение в ячейке. Используй StrToIntDef, если хочешь обезапаситья.

23.12.2012, 01:22

теперь даж форма не открывается

23.12.2012, 01:26

Конечно не хватает, используется с двумя параметрами, где второй параметр, что хочешь получить, если не прошло преобразование.

Delphi

1	I := StrToIntDef(St, 0); // Присвоим 0, если ошибка

В присвоении к Grid-у нужно использовать IntToStr.

1@
		1
	сложение в табл StringGrid 22.12.2012, 20:25. Показов 793. Ответов 5 Метки нет (Все метки) Имеются 2 таблицы StringGrid1 - 4строки и 4столбца и StringGrid2-1 столбец и 4 строки , как запрограммировать Button1 чтобы сумма значений 1 строки табл StringGrid1 выводилась в 1 строку табл StringGrid2 и так 2 3 и 4 строки расчитывали сумму из первой табл во вторую?

2@
	23.12.2012, 00:19	3
	по подробней если можно а то ошибку выдает Миниатюры

angstrom
	23.12.2012, 00:28	4
	Ошибка на не числовое значение в ячейке. Используй StrToIntDef, если хочешь обезапаситья.

1@
	23.12.2012, 01:22	5
	теперь даж форма не открывается Миниатюры

	23.12.2012, 01:26