Deleting row in string grid 1

[Jonah86]

Ok, I feel like a dunce because I can't figure this out. I can clear the whole grid by getting the number of rows and just doing a clear on all of them in a for loop...but I can't figure out how to just clear the row the person has slected. I'm not sure how to determine which row they have selected either.

Any help on this, probably stupid, problem is greatly appreciated

 

[Zathras]

For the first part, you could use something like this:

procedure StringGridDeleteRow( AStringGrid:TStringGrid; ARow:integer );
var
  nRow:integer;
begin
  with AStringGrid do
    begin
      for nRow := ARow to RowCount - 2 do
        Rows[nRow].Assign(Rows[nRow+1]);
      Rows[RowCount-1].Clear;
      RowCount := RowCount - 1
    end;
end;

For the second part, see the help file for the Row and Col properties. For example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGridDeleteRow(StringGrid1, StringGrid1.Row);
end;

 

[Jonah86]

That worked perfectly, thanks a million!