Grid no trae el result correcto

[Paulao]

Yo he logrado exito con uso de StringList, pero ahora necesito remover de StringList, quando yo desmarco el Grid y no puede tener mas de 11 registro.

[Neftali [Germán.Estévez]]

En este ejemplo puedes ver las dos formas más sencillas que hay de borrar una línea de un TStringGrid.

Código Delphi [-]
   //-----------------------------------------------------------
    // Mover el resto de filas hacia arriba
    procedure DeleteRow1(StringGrid: TStringGrid; ARow: Integer);
    var
      i: Integer;
    begin
      with StringGrid do
      begin
        // MOver una posicion hacia arriba el resto de líneas
        for i := ARow to RowCount - 2 do
          Rows[i].Assign(Rows[i + 1]);
        // Decrementar el número total de líneas
        RowCount := RowCount - 1
      end;
    end;
    //-----------------------------------------------------------

Y la otra:

Código Delphi [-]
  //-----------------------------------------------------------
    procedure DeleteRow2(StringGrid: TStringGrid; ARow: Integer);
    begin
      with THackStringGrid(StringGrid) do
        DeleteRow(ARow);
    end;
  //-----------------------------------------------------------

Un saludo.

[Paulao]

Es un StringList y no StringGrid. Mi gustaria de deletar el ultimo registros o todos de una sola vez.

[Paulao]

Este codigo esta dando List Index Out of Bound, pero porque?

Código Delphi [-]
for i := 0 to Pred(DBGrid1.SelectedRows.Count) do
      if i = 11 then
        lista_ocorrencia.Delete(i);

[Neftali [Germán.Estévez]]

Empezado por Paulao

Es un StringList y no StringGrid. Mi gustaria de deletar el ultimo registros o todos de una sola vez.

Perdón, fue un error de lectura.

[Paulao]

Otra pregunta: Siempre que yo hacer un desmarque en el Grid, deberia sacar de StringList aquel registro. Como hago esto?

[Neftali [Germán.Estévez]]

Hola.
Una opción es no borrar, sino eliminarlos todos y volverlos a añadir.

En cuanto al código, el problema creo que puede estar en que borras el 0, luego borras el 1 (que realmente no es el 1), sino que al borrar antes el 0, estás borrando el 2,... y así sucesivamente.

[Paulao]

Yo tengo logrado exito en el codigo, pero tengo todavia una gran duda aca de como hacer. Mi StringList está llena. Pero mi Grid estan con sus registros marcados. Lo que quiero es quando yo Desmarcar el grid, que pueda sacar de StringList el registro equivalente. Esto que estas mi dejando sin pelo(no tengo muchos), pero quiero conservar lo que aun tengo. No se se fue claro.

[Neftali [Germán.Estévez]]

Empezado por Paulao

Yo tengo logrado exito en el codigo, pero tengo todavia una gran duda aca de como hacer. Mi StringList está llena. Pero mi Grid estan con sus registros marcados. Lo que quiero es quando yo Desmarcar el grid, que pueda sacar de StringList el registro equivalente. Esto que estas mi dejando sin pelo(no tengo muchos), pero quiero conservar lo que aun tengo. No se se fue claro.

Debes conseguir el registro que has "desmarcado" en el DBGrid, buscarlo en el TStringGrid y borrarlo.
El problema es que no hay ningun evento que "salte" cuando desmarcas un registro, así que tal vez tendrás que programar ese comportamiento combinando alguno de ratón con alguno de teclado.

Recorrer la lista de seleccionados y actualizar los existentes en el TStringGrid.