紧急情况，高手们请看看。(50分)

代码如下：（在stringgrid的drawcell事件中）
k:=stringgrid1.colcount-1;
if (Acol=k) then
begin
if (stringgrid1.cells[k,Arow]='1') and (stringgrid1.cells[k-1,Arow]='0')
and(stringgrid1.cells[k-2,Arow]='1')and(stringgrid1.cells[k-3,Arow]='0') then
begin
stringgrid1.canvas.brush.color:=clred;
stringgrid1.fillrect(stringgrid1.cellrect[k,Arow]);
stringgrid1.canvas.textout(rect.top,rect.left,stringgrid1.cells[k,Arow]);
stringgrid1.canvas.brush.color:=clred;
stringgrid1.fillrect(stringgrid1.cellrect[k-1,Arow]);
stringgrid1.canvas.textout(rect.top,rect.left,stringgrid1.cells[k-1,Arow]);
stringgrid1.canvas.brush.color:=clred;
stringgrid1.fillrect(stringgrid1.cellrect[k-2,Arow]);
stringgrid1.canvas.textout(rect.top,rect.left,stringgrid1.cells[k-2,Arow]);
stringgrid1.canvas.brush.color:=clred;
stringgrid1.fillrect(stringgrid1.cellrect[k-3,Arow]);
stringgrid1.canvas.textout(rect.top,rect.left,stringgrid1.cells[k-3,Arow]);
end;
end;
本来要达到的要求是将stringgrid一列中的连续cells中的内容为1、0、1、0的CELLS变成红色
可是我却只能将第一个CELLS变成红色。该如何编写这段代码，能够将1、0、1、0都变成红色啊~~谢谢

refresh

k:=stringgrid1.colcount-1;
if ((Acol<=k) and (Acol>=k-3)) then
/////////////////////////
begin
if (stringgrid1.cells[k,Arow]='1') and (stringgrid1.cells[k-1,Arow]='0')
and(stringgrid1.cells[k-2,Arow]='1')and(stringgrid1.cells[k-3,Arow]='0') then
begin
stringgrid1.canvas.brush.color:=clred;
stringgrid1.fillrect(Rect);
////
stringgrid1.canvas.textout(rect.Left+2,rect.Top+2,stringgrid1.cells[ACol,Arow]);
//// /// /////
end;
end;

你原先代码问题较多。

if (stringgrid1.cells[k,Arow]='1') and (stringgrid1.cells[k-1,Arow]='0')
0 1
and(stringgrid1.cells[k-2,Arow]='1')and(stringgrid1.cells[k-3,Arow]='0') then
0 1
可能是 1 0 1 0 的顺序不对！

stringgrid1.Canvas.fillrect(Rect);
/////

楼上的兄弟，谢谢了

if (stringgrid1.cells[k,Arow]='1') and (stringgrid1.cells[k-1,Arow]='0')
0 1
and(stringgrid1.cells[k-2,Arow]='1')and(stringgrid1.cells[k-3,Arow]='0') then
0 1
可能是 1 0 1 0 的顺序不对！

stringgrid1.Canvas.fillrect(Rect);
/////

还有问题吗？？？？？？？？？有没有搞定

接受答案了.