Eliminar una Fila Completa de un StringGrid
 

Hola a todos....

una consultita, como puedo eliminar una fila completa de un StringGrid1, sin perder las filas que la preseden.... :confused:

Mira este hilo.

// Saludos

Gracias....

pero como se sabe cual es la fila seleccionada.... he tratado con varias propiedades pero ninguna me funciona :confused: :confused: :confused:

El índice de la fila seleccionada está dado por la propiedad Row del StringGrid.

// Saludos

muchas gracias...

me funciona muy bien :p

Hola.... ahora tengo el siguiente problema;

Con el siguiente codigo elimino la fila deseada, hasta el momento todo bien,

If MessageDlg('Seguro de Eliminar la Fila '+IntToStr(Rejilla.Row), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Begin
for i := Rejilla.Row + 1 to Rejilla.rowcount - 2 do
begin
Rejilla.rows[i][0] := Rejilla.rows[i + 1][0];
Rejilla.rows[i][1] := Rejilla.rows[i + 1][1];
end;
Rejilla.rowCount := Rejilla.RowCount - 1;
End;

el problema surge cuando quiero insertar una nueva fila, el proceso lo hace bien, pero las filas que se han eliminado, aparecen de nuevo...

Siguiendo con el mismo problema del StringGrid,,,,,

como puedo hacer para que el StringGrid vuelva a 0 en todas sus celdas,,,,

Ate,
yo... :o

Ya logre todo...
 

Con el siguiente codigo pregunto si quiero eliminar la fila Nº X... del StringGrid,

If MessageDlg('Seguro de Eliminar la Fila '+IntToStr(Rejilla.Row), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Begin
For i := Rejilla.Row to Rejilla.rowcount - 1 do
begin
Rejilla.rows[i][0] := Rejilla.rows[i + 1][0];
Rejilla.rows[i][1] := Rejilla.rows[i + 1][1];
end;
Rejilla.rowCount := Rejilla.RowCount - 1;
Fil := Fil - 1;
End;

Faltaba un detalle, para cuando quisiera agregar otro item.... se debe resta 1 a la Fila....( Variable Fil ),

con respecto a limpiar toda las celdas, realice un ciclo for, en donde me limpia todo...

gracias por su ayuda,,