Сложение

[Droid]

У меня есть допустим матрица 4х4, мне надо получить 4 значения, т.к. 4 столбца.
мне надо 1 элемент +2элемент +3 элемент +4 элемент = 1 значение и тд по всем столбцам.
Как мне сделать так чтобы не писать много раз стриннгрид или много раз сложение массивов ?

[N!ckeL]

Можно в цикле перебрать:

var
 matr:array [1..4, 1..4] of integer;
 i, i1:integer;
val1, val2, val3, val4:integer;  {Вот здесь будет сумма элементов в N столбе, где N valN}
begin
val1:=0;
val2:=0;
val3:=0;
va4:=0;
 for i:=1 to 4 do
  begin
    for i1:=1 to 4 do
      begin
       if i=1 then val1:=matr[i, i1]+val1;
       if i=2 then val2:=matr[i, i1]+val2;
       if i=3 then val3:=matr[i, i1]+val3;
       if i=4 then val4:=matr[i, i1]+val4;
      end;
  end;

[Droid]

Nikel сенкс )
Как еще можно сделать а то чет у меня не получается
mas: array [1..4,1..10] of integer;
..
..
..
if st1<>st2 then
begin
for st1:=1 to 4 do
for st2:=1 to 10 do
//stringgrid1.Cells[st2,st1]:=inttostr(mas[st2,st1]);
mas[st2,st1]:=strtoint(stringgrid1.Cells[st2,st1]);
хочу в массив занести все значения которые находятся в стринггриде

[N!ckeL]

Вот так, после цикла нужно ставить begin и end.

var
 mas: array [1..4,1..10] of integer;
 st1, st2:integer;
begin
for st1:=1 to 4 do
begin
 for st2:=1 to 10 do
  begin
   mas[st2,st1]:=strtoint(stringgrid1.Cells[st2,st1]);
  end;
end;
end;

[Droid]

все равно ошибку выдает

[N!ckeL]

процитируй ошибку что ли...

[Droid]

project project1.exe raised exception class EAccessViolation with message 'access Violation at address 0045c87d in module 'Proj1ct1.exe'. Write of address 00000009' и сказано остановите прогу

[N!ckeL]

Проверь в stringgrid1.Cells[st2,st1] целые числа стоят? и нет там других знаков. И желательно весь код выложи..

[Droid]

нет 100 % ....
там стоят только целые и нет дробных или др цифр.

[N!ckeL]

Весь код выложи если можешь.