Помогите со стринг гридом

[student_63]

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

repeat
bool:= true;
for uRow:= 1 to k+1 do
begin
if StringGrid2.Cells[uCol,uRow] = '0*' then
begin
StringGrid2.Canvas.Brush.Color := clRed;
break;
end
else
begin
bool:=false;
break;
end;
for uCol:= 1 to k+1 do
if StringGrid2.Cells[uCol,uRow] = '0^' then
begin
StringGrid2.Canvas.Brush.Color := clRed;
StringGrid2.Cells[i,j]:= '0^';
break;
end;
end;
until bool = false;

[_Dmitry]

http://www.programmersforum.ru/showthread.php?t=8416

[student_63]

Да по этой ссылке пишут, что ячейки автоматически будут цвет изменять во время выолнения программы, а у меня это отдельная процедур, которая может вообще не использоваться!!!

[Stilet]

здесь это не подходит.... а у меня это отдельная процедур, которая может вообще не использоваться!!!

Это как? Что ты хочеш выделить?

[student_63]

Короче вот такая ситуация, у меня есть процедура, к которой переходят в том случае,если строка, содержащая невыделенный нуль не содержит 0*, то переходим к этой процедуре.
В этой процедуре строим цепочку элементов (Вот эти то элементы и надо выделять как-нибудь) берем этот нолик,выделяя его, потом ищем в этом столбце 0*,опять же выделяя его,потом в этой строке простой нолик и т.д.Вот,а если использовать метод DrawCell, то у меня в ходе выполнения всей программы будут выделяться ВСЕ 0*,ЧТО МНЕ НЕ НУЖНО.ой, вроде нормально изложил, помогите пожалуйста,скоро сдавать

[Павлик]

var OldColor:TColor;
begin

OldColor:=StringGrid2.Canvas.Brush.Color;
  repeat
      bool:= true;
      for uRow:= 1 to k+1 do
         begin
           if StringGrid2.Cells[uCol,uRow] = '0*' then
              begin
               StringGrid2.Canvas.Brush.Color := clRed;
               break;
              end
                else
                 begin
                  StringGrid2.Canvas.Brush.Color := OldColor;
                  bool:=false;
                  break;
                 end;
           for uCol:= 1 to k+1 do
            if StringGrid2.Cells[uCol,uRow] = '0^' then
              begin
               StringGrid2.Canvas.Brush.Color := clRed;
               StringGrid2.Cells[i,j]:= '0^';
               break;
              end;
         end;
      until bool = false;

[student_63]

Спасибо большое,сейчас попробую,если кому будет интересно выложу(как доделаю) исходник "Задачи о назначениях" венгерским методом