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


Hacson Menezes

Hacson Menezes

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 :

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

APRENDA A PROGRAMAR DO ZERO AO PROFISSIONAL

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar