сумму положительных и отрицательных чисел матрицы

[Superlotles]

Здравствуйте !!!
Этот код считает сумму положительных и отрицательных чисел матрицы. Подскажите, почему у меня в сообщении ShowMessage сумма положительных и отрицательных чисел имеют огромные значения ?

Код:

type
  TIntMatrix = array of array of Integer;
 
function ReadMatrix(Grid: TStringGrid): TIntMatrix;
var
  r, c: Integer;
  Matrix: TIntMatrix;
begin
  SetLength(Matrix, StringGrid1.RowCount, Grid.ColCount);
  for r := 0 to StringGrid1.RowCount - 1 do
    for c := 0 to Grid.ColCount - 1 do
      Matrix[r,c] := StrToInt(StringGrid1.Cells[c,r]);
  Result := Matrix;
end;
 
procedure GetSum(Matrix: TIntMatrix; SumOtr, SumPol: Integer); 
var
  I, J: Integer;
begin
  SumOtr := 0;
  SumPol := 0;
  for I := 0 to High(Matrix) do
    for J := 0 to High(Matrix) do
      if Matrix[I,J] > 0 then
        SumPol := SumPol + Matrix[I,J]
      else
        if Matrix[I,J] < 0 then SumOtr := SumOtr + Matrix[I,J];
end;

[Serebro]

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

Здравствуйте !!!
Этот код считает сумму положительных и отрицательных чисел матрицы. Подскажите, почему у меня в сообщении ShowMessage сумма положительных и отрицательных чисел имеют огромные значения ?

Код:

type
  TIntMatrix = array of array of Integer;
 
function ReadMatrix(Grid: TStringGrid): TIntMatrix;
var
  r, c: Integer;
  Matrix: TIntMatrix;
begin
  SetLength(Matrix, StringGrid1.RowCount, Grid.ColCount);
  for r := 0 to StringGrid1.RowCount - 1 do
    for c := 0 to Grid.ColCount - 1 do
      Matrix[r,c] := StrToInt(StringGrid1.Cells[c,r]);
  Result := Matrix;
end;
 
procedure GetSum(Matrix: TIntMatrix; SumOtr, SumPol: Integer); 
var
  I, J: Integer;
begin
  SumOtr := 0;
  SumPol := 0;
  for I := 0 to High(Matrix) do
    for J := 0 to High(Matrix) do
      if Matrix[I,J] > 0 then
        SumPol := SumPol + Matrix[I,J]
      else
        if Matrix[I,J] < 0 then SumOtr := SumOtr + Matrix[I,J];
end;

Это происходит из-за того, что многие элементы массива просто не определены: что такое High(Matrix)?

Матрица заполнялась так:

  for r := 0 to StringGrid1.RowCount - 1 do
    for c := 0 to Grid.ColCount - 1 do
       ........

Также и нужно считать требуемые суммы:

  for r := 0 to StringGrid1.RowCount - 1 do
    for c := 0 to Grid.ColCount - 1 do
       ........

И один вопрос:
Нет ли здесь ошибки? Индексы здесь правильные?

      Matrix[r,c] := StrToInt(StringGrid1.Cells[c,r]);

За помощь кликни по рекламе здесь внизу.