Заполнение Грида

[.FROST.]

Доброго времени суток. При заполнении StringGrid-а я столкнулся с одной проблемой. Дан грид, с заполненными ячейками "молочного" цвета. Мне необходимо заполнить зеленые ячейки, начиная с правого верхнего угла по следующему принципу: Сравнивается сумма значений в двух ячейках сверху(зеленой и молочной) и справа(тоже зеленой и молочной), и минимальная сумма записывается в ячейку. Например, член матрицы
S[3,5]:=min((S[1,5]+H[2,5]),(S[3,7]+V[3,6])), где S-зеленые ячейки, а V,H-молочные( по горизонтали и вертикали соотв-но).
А первая строка и последний столбец заполняется суммой предыдущей зеленой ячейки и молочной.
Цикл я написал, но почему то заполняется только 2я строка. Помогите разобраться, пожалуйста. И еще вопрос, у меня сначала заполняется первая строка и последний столбец(зеленые ячейки), а потом остальные зеленые ячейки по нажатию отдельной кнопки. Объединить эти процедуры пытался, но не удалось. Возможно ли это?
Вот код:

procedure TForm1.Button4Click(Sender: TObject);
var
  c,r:integer;
begin
  c:=StringGrid1.ColCount-3;
  For r:=2 to StringGrid1.RowCount-1 do
  while (c>=1) do
  begin
    if (odd(r)=false) then
    begin
      S[r,c]:=min((strtoint(StringGrid1.Cells[c,r-2])+strtoint(StringGrid1.Cells[c,r-1])),(strtoint(StringGrid1.Cells[c+2,r])+strtoint(StringGrid1.Cells[c+1,r])));
      StringGrid1.Cells[c,r]:=inttostr(S[r,c]);
      c:=c-2;
    end;
  end;
end;

И рисунок:

[evg_m]

while (c>=1) do //бесконечный цикл при НЕвыполнении условия odd(r)=false
поскольку изменение с (c:=c-2); возможно (будет выполнено) только при данном условии, а изменение r в данном цикле не предусмотрено.

а потом остальные зеленые ячейки по нажатию отдельной кнопки. Объединить эти процедуры пытался, но не удалось. Возможно ли это?

buttonX.Click; //программное "нажатие" кнопки

button1.click; //сначала будут выполнены действия при нажатии button1
button2.click; //потом действия при нажатии button2

а изменение r в данном цикле не предусмотрено.

выносим его из цикла

if odd(r) =false then begin
  c:=rowcount;
  while (c>=1) do begin
     cells[c,r]:=...
     c:=c-2;
  end;
end;

[.FROST.]

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

while (c>=1) do //бесконечный цикл при НЕвыполнении условия odd(r)=false
поскольку изменение с (c:=c-2); возможно (будет выполнено) только при данном условии, а изменение r в данном цикле не предусмотрено.

buttonX.Click; //программное "нажатие" кнопки

button1.click; //сначала будут выполнены действия при нажатии button1
button2.click; //потом действия при нажатии button2

Изменение r задано же в цикле For, но почему-то не выполняется.

[.FROST.]

Уточню, здесь с-столбец, а r -строка.

[evg_m]

for r:=1 to ... begin
  while (c>=1) do begin//мы не может закончить вот ЭТО!
  end;
//  и до следующего r никогда не дойдем!!
end;

[.FROST.]

Спасибо!!!!!!!!1 Получилось. Осталось только закрасить минимальный путь и диссер готов)

[.FROST.]

А по поводу двух последовательных вычислений.. На одной кнопки это сделать нельзя, т.к. вторые расчеты зависят от первых.
Я правильно понял? У меня лично не получилось.. Думаю сделать так, две кнопки наложить друг на друга, вторую сделать невидимой, пока не нажать первую, после чего первая становится инвизной. Бред конечно, немного, но умнее ничего придумать пока не могу.

[evg_m]

две кнопки наложить друг на друга, вторую сделать невидимой, пока не нажать первую

button2.Enabled:=false; // делаем кнопку ненежимаемой !!! (можно это сделать во время конструирования) или там где мы поняли что ее не стоит нажимать.

Во время (или после) неких расчетов, как только мы поняли что теперь можем разрешить нажимать
button2.Enabled:=true;

[.FROST.]

Ну да. Или так. Просто я хочу, чтобы одна кнопка нажималась один раз, без второй.

[Аватар]

Все там можно на одну кнопку посадить, так например:

procedure TForm1.ButtonClick(Sender: TObject);
var i,j,si,sj: Integer;
begin
  i:=StringGrid1.ColCount-1;
  while i>0 do begin
    j:=0;
    while j<StringGrid1.RowCount-1 do begin
      if i=StringGrid1.ColCount-1 then si:=0 else si:=StrToIntDef(StringGrid1.Cells[i+1,j],0)+StrToIntDef(StringGrid1.Cells[i+2,j],0);
      if j=0 then sj:=0 else sj:=StrToIntDef(StringGrid1.Cells[i,j-1],0)+StrToIntDef(StringGrid1.Cells[i,j-2],0);
      if (si>0) and (sj>0) then StringGrid1.Cells[i,j]:=IntToStr(Min(si,sj))
      else if si>0 then StringGrid1.Cells[i,j]:=IntToStr(si)
      else if sj>0 then StringGrid1.Cells[i,j]:=IntToStr(sj);
      Inc(j,2);
    end;
    Dec(i,2);
  end;
end;