problemas al Eliminar filas de un stringGrid

[roman]

Empezado por Belen12

tengo los siguientes problemas problemas.
1) si tengo por ejemplo 5 productos cargados en el stringgrid al darle eliminar elimina todos menos el primero
2) partiendo del mismo ejemplo si elimino el producto del medio (supongamos el que esta en la fila 3) se eliminan todos
3) si quiero eliminar el primer producto de la lista se eliminan todos los demas menos este
4) si el item 1) que mencione elimina todo me queda solo 1 fila con un producto que no se elimina y al seguirle dando eliminar el valor del edit se va hasta -x por ejemplo

Realmente, la idea original no está mal. El problema es que reduces el número de filas en cada vuelta del ciclo y debes hacerlo sólo hasta el final, es decir, después del ciclo. Algo como:

Código Delphi [-]
for i := sgDetalle.Row to sgDetalle.RowCount-2 do
begin
  sgDetalle.Rows[i]:= sgDetalle.Rows[i + 1];
end;

sgDetalle.RowCount := sgDetalleRowCount - 1;

LineComment Saludos