Перевод из StringGrid в матрицу

[iKarma]

Проблема состоит в том, что не могу перевести заданные значения из StringGrid в матрицу и не работает проверка на заполнение StringGrid. Вот мой код:

procedure TMainForm.ButtonRunClick(Sender: TObject);
var
  M:array[1..100,1..2]of Integer;
  i,j,x,y,yx,xtotal,ytotal,yxtotal:Integer;
  E:Exception;
begin
    MemoLog.Lines.Add('Начало рассчётов...');

    //проверка на корректный ввод
    for i:=1 to n do
      for j:=1 to 2 do
        if StringGridData.Cells[i,j]='' then
          begin
            ShowMessage('Вы не ввели данные в таблицу! Проверьте ввод данных!');
            Exit;
          end;

    //заполняем матрицу из таблицы
    for i:=1 to n do
      for j:=1 to 2 do
        M[i,j]:=StrToInt(StringGridData.Cells[i,j]);

    //подсчёт суммы первого столбца
    xtotal:=0;
    for i:=1 to n do
      xtotal:=x+M[i,1];
    ShowMessage(IntToStr(xtotal));

    //подсчёт суммы второго столбца
    ytotal:=0;
    for i:=1 to n do
      ytotal:=x+M[i,2];
    ShowMessage(IntToStr(ytotal));

    //подсчёт суммы элементов двух перемноженных столбцов


    //подсчёт среднего значения первого столбца


    //подсчёт среднего значения второго столбца


    //подсчёт среднего значения элементов двух перемноженных столбцов


    //расчёт дисперсии первого столбца


    //расчёт дисперсии второго столбца

    
    MemoLog.Lines.Add('Расчёты окончены');
 
  end;
end;

Комментарии к коду: StringGridData - это и есть StringGrid, n - количество строк матрицы (глобальная переменная), M - матрица, в которую нужно перевести StringGrid. У меня задаётся любое количество строк матрицы, а столбцов всегда 2. по поводу комментариев - это пока что ещё не написанные строки))) Помогите пожалуйста =)

[phomm]

Ячейки стринггрида нумеруются от 0, а Вы циклы делаете от 1 и эти индексы используете для грида, переведите и циклы и матрицу на 0 индексацию чтобы не испытывать проблем, альтернативно можно сделать гриду фикс строку и столбец, но это менее удобно

[iKarma]

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

Ячейки стринггрида нумеруются от 0, а Вы циклы делаете от 1 и эти индексы используете для грида, переведите и циклы и матрицу на 0 индексацию чтобы не испытывать проблем, альтернативно можно сделать гриду фикс строку и столбец, но это менее удобно

Те ячейки у меня заняты под написание базовой информации для таблицы, то есть название столбцов и строк.

[phomm]

В чём же проявляется проблема "не могу перевести заданные значения из StringGrid в матрицу и не работает проверка на заполнение StringGrid" ? Может, конечно, вы везде , где можно, путаете строки и столбцы...
могу ещё добавить, что в расчете суммы вы неверно пишете :

xtotal:=x+M[i,1];

а надо бы

xtotal:=xtotal+M[i,1];

[iKarma]

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

В чём же проявляется проблема "не могу перевести заданные значения из StringGrid в матрицу и не работает проверка на заполнение StringGrid" ? Может, конечно, вы везде , где можно, путаете строки и столбцы...
могу ещё добавить, что в расчете суммы вы неверно пишете :

xtotal:=x+M[i,1];

а надо бы

xtotal:=xtotal+M[i,1];

А можете подсказать где я и что путаю пожалуйста)

[Stilet]

не работает проверка на заполнение StringGrid.

    for i:=1 to n do
      for j:=1 to 2 do 
        if not TryStrToInt(StringGridData.Cells[i,j],M[i,j]) then          begin
            ShowMessage('Вы не ввели данные в таблицу! Проверьте ввод данных!');
            Exit;
          end;

И можешь ту проверку которая сейчас у тебя убрать - она лишняя.

где я и что путаю пожалуйста)

Ты суммируешь? Тогда тебе сказали что просто переменные поставил не те.

[iKarma]

Спасибо, опытным путём всё понял =)

for i:=1 to 2 do
      for j:=1 to n do

цикл таким должен быть