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