Струнная сетка в Дельфах

Question

Я пытаюсь написать код для вычисления суммы всех чисел из ячеек, которые образуют основную диагональ сетки строк, но в результате я получаю только число, набранное в правой нижней ячейке. Вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
begin
  with StringGrid1 do
  begin
    RowCount := StrToInt(Edit1.Text);
    ColCount := StrtoInt(Edit2.Text);
    for i := 0 to RowCount - 1 do
      Cells[0, i] := IntToStr(i);
    for j := 0 to ColCount - 1 do
      Cells[j, 0] := IntToStr(j);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j, s, z, n: Integer;
begin
  z := 0;
  with StringGrid1 do
  begin
    for i := 1 to RowCount - 1 do
      for j := 1 to ColCount - 1 do
        s := StrToInt(Cells[j, i]);

    for n := RowCount - 1 to ColCount - 1 do
      if i = j then
        z := z + s;

    Label1.Caption := IntToStr(z);
  end;
end;

end.

Что мне не хватает? заранее спасибо

Answer 1

Вы не суммируете никаких ценностей. Если ваш columcount равен вашему rowcount, то ваш цикл for будет выполняться только один раз для вашего последнего элемента.

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j, s, z, n: integer;
begin
  z:=0;
  for i:=1 to StringGrid1.rowcount-1 do
    for j:=1 to StringGrid1.colcount-1 do
      if i=j then 
      begin
        s:=strtoint(cells[j, i]);
        z:=z+s;
      end;
  Label1.Caption:=inttostr(z);
end;