Eliminar Fila de StringGrid...Consulta
 

Hola amigos.. tengo una consulta....:p

Tengo un StringGrid en donde ingreso valores, pero tambien tengo la opcion de eliminar algunos valores

el codigo para eliminar un fila del StringGrid es (rejilla=StringGrid)

Código Delphi [-]
     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];
                  Rejilla.Rows[i][2] := Rejilla.Rows[i+1][2];
                  Rejilla.Rows[i][3] := Rejilla.Rows[i+1][3];
             End;
             Rejilla.RowCount := Rejilla.RowCount - 1;

bueno.. el problema se presenta cuando despues de eliminar un elemento... al incorporarle un elementro nuevo.. me borra todo el contenido anterior.. y no he logrado solucionarlo...

el codigo para agregar un item es

Código Delphi [-]
    If Sw_1 = '2' Then Rejilla.RowCount := Rejilla.RowCount +1;
     Rejilla.Cells[0,Rejilla.RowCount-1] := vCC;
     Rejilla.Cells[1,Rejilla.RowCount-1] := CB_Centro.Text;
     Rejilla.Cells[2,Rejilla.RowCount-1] := vMto.Text;
     Rejilla.Cells[3,Rejilla.RowCount-1] := vObs.Text;
     Sw_1 := '2';

Alguien sabe por que puede pasar esto...:confused:

Busca en el codigo fuente del metodo protegido RemoveRow del CustomGrid y sabras como hacerlo efficiwentemente..

En mi página web, en la sección de ejemplos, hay uno que se titula "Color y alineación en celdas de un StringGrid"; Aparte de lo que comenta el título, tiene implementadas las opciones de Cortar, Copiar y Pegar en el portapapeles; en concreto, la de cortar elimina una o varias filas seleccionadas (y luego las copia al portapapeles).
El código que hay en el cortar es el que necesitas. Está con código fuente, así que puedes echarle un vistazo.