Como excluir linhas da StringGrid
25/06/2003
0
Colegas recebi a instrução abaixo. Funciona, mais apaga sempre a ultima linha da stringgrid. O que eu preciso é que apague a linha que o usuário desejar. Rotina do edzatarin, enviado em 24.06.2003,
//verifica se há algo no grid
if (sgGrid.RowCount <= 2) or (trim(sgGrid.cells[0,sgGrid.row]) = ´´) then
Exit;
//puxando a linha de baixo
for i := sgGrid.row to sgGrid.rowcount do
begin
//puxando a linha
sgGrid.cells[0,i] := sgGrid.cells[0,i+1];
sgGrid.cells[1,i] := sgGrid.cells[1,i+1];
sgGrid.cells[2,i] := sgGrid.cells[2,i+1];
sgGrid.cells[3,i] := sgGrid.cells[3,i+1];
sgGrid.cells[4,i] := sgGrid.cells[4,i+1];
end;
//eliminando linha
sgGrid.rowcount := sgGrid.rowcount - 1;
//verifica se há algo no grid
if (sgGrid.RowCount <= 2) or (trim(sgGrid.cells[0,sgGrid.row]) = ´´) then
Exit;
//puxando a linha de baixo
for i := sgGrid.row to sgGrid.rowcount do
begin
//puxando a linha
sgGrid.cells[0,i] := sgGrid.cells[0,i+1];
sgGrid.cells[1,i] := sgGrid.cells[1,i+1];
sgGrid.cells[2,i] := sgGrid.cells[2,i+1];
sgGrid.cells[3,i] := sgGrid.cells[3,i+1];
sgGrid.cells[4,i] := sgGrid.cells[4,i+1];
end;
//eliminando linha
sgGrid.rowcount := sgGrid.rowcount - 1;
Oziasl
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)