deletar linha do StringGrid

Delphi

18/03/2003

Boa tarde a todos.
Gostaria de saber como faço para deletar uma linha do StringGrid.

Grato pela atenção


Hacson Menezes

Hacson Menezes

Curtidas 0

Respostas

Rdf

Rdf

18/03/2003

[quote:7ffcf4590f=´Hacson Alexandre Menezes´]Boa tarde a todos.
Gostaria de saber como faço para deletar uma linha do StringGrid.

Grato pela atenção[/quote:7ffcf4590f]

Hacson, não tenho certeza, mas acho que não dá pra deletar uma linha inteira em um TStringGrid, o que vc pode fazer é mover o conteúdo das linhas inferiores uma posição para cima, dessa forma vc estaria elimindando o conteúdo de uma linha L qualquer!!!

tente o seguinte código :

procedure TForm1.BtnDeletarClick(Sender: TObject);
var
 i, j : integer;
begin
 for i := sg1.Row to (sg1.RowCount - 1) do
  for j := 0 to (sg1.ColCount - 1) do
   sg1.Cells[j, i] := sg1.Cells[j, i + 1];
 sg1.RowCount := sg1.RowCount - 1;
end;


onde :

BtnDeletar é o botão que vai chamar a rotina para apagar a linha que estiver focada;
sg1 é o TSringGrid em questão;


GOSTEI 0
Hacson Menezes

Hacson Menezes

18/03/2003

Rodrigo, muito obrigado. O código caiu com uma luva, precisando de algo é só mandar.


GOSTEI 0
POSTAR