Массивы. Гл. диагональ на наоборот.

[Человек_Борща]

Доброго времени суток!

Есть матрица 3 на 3.
1 4 6
2 5 7
3 6 8

Диагонально 1 5 8 - у меня получается... :
движение идет от левого-верхнего угла к правому-нижнему

procedure TMainForm.Button2Click(Sender: TObject);
var
  iRows, iCols: Integer;
  d1, d2, x, x1: Integer;
begin
  d1 := 0;
  d2 := 0;
  x := 0;
  x1 := 0;
  for iCols := 0 to StringGrid1.ColCount - 1 do
  begin
    for iRows := 0 to StringGrid1.RowCount - 1 do
    begin
      if iCols = iRows then
      begin
        x := StrToInt(StringGrid1.Cells[iCols, iRows]);
        d1 := D1 + x; //Сумма
      end;
    end;
  end;

а вот другая диагональ: 3 5 6 я уж 30 минут и так и сяк ворочал циклы, ну ни в какую..
вот так:

  for iRows := StringGrid1.RowCount - 1 downto 0 do
  begin
    for iCols := StringGrid1.ColCount - 1 downto 0 do
    begin
      if iRows = iCols then
      begin
        x := StrToInt(StringGrid1.Cells[iCols, iRows]);
        d2 := D2 + x;
      end;
    end;
  end;

только движение идет от правого-нижнего угла к левому-верхнему

Дайте совет на что смотреть. Элементарно, но не доходит в 2 часа ночи

UPDATE
Дошло: http://programmersforum.ru/showthread.php?t=70310

...

Нет не дошло..

procedure TMainForm.Button2Click(Sender: TObject);
var
  iRows, iCols: Integer; //Ñ÷åò÷èêè
  d1, d2, x, x1: Integer;
  N: Integer;
begin
  //Ìàòðèöà êîððåêòíà è ýòî õîðîøî.
  d1 := 0;
  d2 := 0;
  //1-ÿ äèàãîíàëü
  x := 0;
  x1 := 0;
  N := StringGrid1.ColCount - 1;
  //ñëåâà  íà ïðàâî è âíèç
  for iCols := 0 to N do
  begin
    for iRows := 0 to N do
    begin
      if iCols = iRows then
      begin
        x := StrToInt(StringGrid1.Cells[iCols, iRows]);
        d1 := D1 + x;
      end;
    end;
  end;

  //ñëåâà  íà ïðàâî è ââåðõ

  for iCols := 0 to N do
  begin
    for iRows := 0 to N do
    begin
      if (iRows + iCols = N + 1) then
      begin
        x := StrToInt(StringGrid1.Cells[iCols, iRows-1]);
        d2 := D2 + x;
      end;
    end;
  end;

Почти работает!
Из 3 5 6 получает только: 5 6

[Ezhik Kihze]

1. Если вам нужны только диагонали, то не нужны вам два цикла, проверка условия
2. Если для главной дигонали первый индекс равен второму, то для побочной картина чуть другая
3. Давайте прикинем индексы:
первый = счетчик цикла от (размерности матрицы - 1) до 0
второй = размерность - первый - 1

П.С. Для главной тоже все в один цикл делается

[Человек_Борща]

Проблема решена! Спасибо!

[Аватар]

массив a[1..n,1..n]

for i:=1 to n
  a[i,i] - элементы главной диагонали слева направо и сверху вниз
  a[n-i+1,n-i+1] - элементы главной диагонали справа налево и снизу вверх
  a[n-i+1,i] - элементы воторой диагонали слева направо и снизу вверх
  a[i,n-i+1] - элементы воторой диагонали справа налево и сверху вниз