Delete data from grid except for the header row 2

[Mezzzo]

Hi Group

How do I modify this code so the header row is not
deleted.
Thanks!!

procedure TfrmDrw.btnClearGridClick(Sender: TObject);
var
i: Integer;
begin
for i := 0 to StringGrid1.ColCount do
StringGrid1.Cols.Clear;
end;

 

[Zathras]

Here is one way:
[blue]

procedure TfrmDrw.btnClearGridClick(Sender: TObject);
var
   i: Integer;
   slTemp:TStringList;
begin
   slTemp := TStringList.Create;
   try
     slTemp.Assign( StringGrid1.Rows[0] );
     for i := 0 to StringGrid1.ColCount do
        StringGrid1.Cols[i].Clear;
     StringGrid1.Rows[0].Assign( slTemp );
   finally
     slTemp.Free;
   end;  
end;

[/color]

 

[richardchaven]

procedure TfrmDrw.btnClearGridClick(Sender: TObject);
var
   i: Integer;
begin
   for i := StringGrid1.FixedRows to StringGrid1.RowCount do
      StringGrid1.Rows[i].Clear;
end;

Cheers