delphi stringgrid1 清空数据记录(主要防止数据记录未写满页面显示错误)

    //清空数据记录(主要防止数据记录未写满页面显示错误)

     for var i_Row := 1 to stringgrid1.RowCount-1 do begin

          for var i_Col  := 0 to stringgrid1.ColCount-1 do begin

               stringgrid1.Cells[i_Col,iRow]:= '';

          end;

     end;

     {

for i := 0 to stringgrid1.rowCount - 1 do

begin

stringgrid1.cols[I].clear;

end; }