Eliminar una Fila Completa de un StringGrid

[[BlueSteel]]

Hola a todos....

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

[roman]

Mira este hilo.

// Saludos

[[BlueSteel]]

Gracias....

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

[roman]

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

// Saludos

[[BlueSteel]]

muchas gracias...

me funciona muy bien

[[BlueSteel]]

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...

[[BlueSteel]]

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

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

Ate,
yo...

[[BlueSteel]]

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,,