下面一段代码表示什么意思我不能理解？

Question

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.Index = 5 then
  with DBGrid1.Canvas do begin
    FillRect(Rect);
    TextOut(Rect.Left+2, Rect.Top+2, IntToStr(DBGrid1.DataSource.DataSet.RecNo));
  end;
end;哪位大哥知道帮忙解释一下

Answer 1

在DBGRID的第5列显示为当前为第几条记录

Answer 2

在第五列画出记录号，用画笔的TEXTOUT方法