stringGrid 颜色控制问题！

Question

我从数据库中读出一批乐透类型彩票的数据 格式如下：
字段1    字段1  字段1  字段1  字段1  字段1  字段1  字段1  字段1
2002011  12     13    14     20     22     30    31      37
我想把stringgrid中的数据的颜色做如下改变：
如果出现三个号码是连续的话就把该行字体的颜色变为红色！如上:12 13 14为连续
请问我该怎么写！！

Answer 1

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
begin 
  with StringGrid1 do 
  begin 
    if (ACol = 3) and (ARow = 3) then 
    begin 
      Canvas.Brush.Color := clRed; 
      Canvas.FillRect(Rect); 
      Canvas.Font.Name := 'Courier New'; 
      Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]); 
    end; 
  end; 
end; 条件你自己改一下