deletar linha do StringGrid
18/03/2003
0
Boa tarde a todos.
Gostaria de saber como faço para deletar uma linha do StringGrid.
Grato pela atenção
Gostaria de saber como faço para deletar uma linha do StringGrid.
Grato pela atenção
Hacson Menezes
Curtir tópico
+ 0
Responder
Posts
18/03/2003
Rdf
[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 :
onde :
BtnDeletar é o botão que vai chamar a rotina para apagar a linha que estiver focada;
sg1 é o TSringGrid em questão;
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;
Responder
18/03/2003
Hacson Menezes
Rodrigo, muito obrigado. O código caiu com uma luva, precisando de algo é só mandar.
Responder
Clique aqui para fazer login e interagir na Comunidade :)