D�vida com DbGrid - Ordena��o do Bookmark

Question

Senhores, preciso fazer uma rotina que grave em uma outra tabela alguns registros que s�o mostrados num grid. Como � ,ultiselect o meu grid, eu uso Bookmar e BookmarList para guardar as informa��es e ...

Paulo · Answer

Colocando um StringList e retirando o bookmark, eu consigo. Agora s� pergunto uma coisa: Ao desmarcar, preciso retirar da StringList aquela linha e n�o pode haver mais de 11 linhas(Registros) na StringList.

Paulo · Answer

Este c�digo est� retornando um List Index Out of Bound. Porque?

for i := 0 to Pred(grdOcorrencias.SelectedRows.Count) do
      if i = 11 then
        lista_ocorrencia.Delete(i);

Paulo · Answer

Mais uma pergunta: Como fa�o para cada vez que eu desmarcar o Grid, seja deletada da StringList o registro referente aquele desmarcado?...

Paulo · Answer

resolvi o List Index Out of Bounds. O For estava num lugar errado, ou seja, havia uma valida��o de n�o aceitar mais de 11 linhas e depois disso eu chamava o For. Claro, era no m�ximo 11 linhas e eu estava validando com 12(deletar a 12�), logo estava fora da lista. Coloquei o For logo ap�s eu popular a StringList e funcionou. Mas quanto a minha pergunta para Desmarcar ainda n�o consegui faz�-lo.

Paulo · Answer

Deixa-me explicar melhor. Tenho uma StringList que est� cheia de registros. O que desejo � que quando eu desmarcar a linha do Grid que est� selecionada, preciso retirar da StringList o registro equivalente. Isto � que est� me deixando louco.

Delmar · Answer

Para remover tente a seguinte sintaxe      Lista.Delete(Lista.IndexOf(�ELEMENTO�));Exemplo para remover �Bola�      Lista.Delete(Lista.IndexOf(�Bola�));...

Paulo · Answer

Sim Delmar, isto sem problemas. O fato � que eu s� posso apagar aquilo que foi desmarcado no Grid. Meu Grid � Multiselect e posso marcar at� 11 itens(regra). Quando eu marco, eu coloco na lista, agora quando eu desmarco eu deveria retir�-lo de l� e � isto que n�o estou conseguindo. Penso em fazer um FOR na lista e correr toda ela e o registro que eu tenho na lista n�o tiver um bookmark, eu deleto, mas isso eu n�o sei fazer.

Delmar · Answer

Considerando que esteja usando um TDBGrid

Talvez no onCellClick o codigo abaixo faria a invers�o a cada click

   if DBGrid1.SelectedRows.CurrentRowSelected then
     retira da lista //est� selecionado, logo deve estar na lista, ent�o retira da lista
   else
     coloca na lista; //n�o est� selecionando ainda, logo n�o deve estar  na lista, ent�o coloca na lista

//eu acho que usando o CurrentRowSelected � o caminho, s� n�o sei se este evento seria o correto

Paulo · Answer

Abaixo o c�digo todo. O que passa que ele est� replicando as informa��es. Isto � l�gico, porque eu usei bookmarks no grid e como o c�digo est� no OnCellClick, cada vez que � marcado alguma linha, o evento � chamado e gravado, independente do que j� esteja populado na tabela. S� preciso fazer � retirar o novo valor, caso ele j� esteja inserido na tabela, e isto n�o estou conseguindo.

procedure TfrmOcorrenciaPendente.grdOcorrenciasCellClick(Column: TColumn);
  procedure popula_lista;
  var
    contador,j: Integer;
    bkm: TBookmarkList;
  begin
    frmAssociarOcor_Ocor_Direta.qryTem_Ocor.Open;
    bkm     := grdOcorrencias.SelectedRows;
    frmAssociarOcor_Ocor_Direta.qryTem_Ocor.Open;

    //Pegar todos os itens selecionados somente - Paulo Correa - 17/02/2009
    for contador:= 0 to Pred(bkm.Count) do
    Begin
      if Contador > 11 then
      begin
        MessageDlg(�S� � permitido associar 10 ocorr�ncias a uma ocorr�ncia pai�,mtInformation,[mbOk],0);
        associa := True;
        Break;
      end;
      qryOcorrencias.BookMark := bkm[contador];

      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.Append;
      qryTem_Ocor.FieldByName(�TMP_ID�).AsInteger := contador;
      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.FieldByName(�TMP_ANO_OCORRENCIA�).AsString := copy(grdOcorrencias.Fields[1].AsString,1,4);
      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.FieldByName(�TMP_NUM_OCORRENCIA�).AsString := copy(grdOcorrencias.Fields[1].AsString,6,Length(grdOcorrencias.Fields[1].AsString));
      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.FieldByName(�TMP_DEFEITO_FALHA�).AsString := grdOcorrencias.Fields[3].AsString;
      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.FieldByName(�TMP_ALIM_PRIMARIO�).AsString := grdOcorrencias.Fields[4].AsString;
      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.FieldByName(�TMP_SUBESTACAO�).AsString := Copy(grdOcorrencias.Fields[4].AsString,1,3);
      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.FieldByName(�TMP_QTD_COMUNICACAO�).AsInteger := grdOcorrencias.Fields[13].AsInteger;
      frmAssociarOcor_Ocor_Direta.qryTem_Ocor.Post;

      //for j := 0 to Pred(frmAssociarOcor_Ocor_Direta.qryTem_Ocor.RecNo) do
        //if frmAssociarOcor_Ocor_Direta.qryTem_Ocor.Locate()
    end;
  end;

begin
  if not Assigned(frmAssociarOcor_Ocor_Direta) then
    frmAssociarOcor_Ocor_Direta := TfrmAssociarOcor_Ocor_Direta.Create(Self);

  GravaItensSelecionado(grdOcorrencias);
end;

Paulo · Answer

Onde se le isso[quote:51bc0c24a9]GravaItensSelecionado(grdOcorrencias); [/quote:51bc0c24a9]entenda isso[quote:51bc0c24a9]popula_lista; [/quote:51bc0c24a9]...

Paulo · Answer

Uma pergunta. Quando fa�o v�rias marca��es no Grid(Grid Multiselect), eu ap�s escolher todos os itens, preciso chamar um Menu Popup. Se eu matenho a tecla Ctrl pressionada e chamar o Popup. o evento OnCellClick n�o � chamado. Se n�o pressiono a tecla Ctrl e aperto o bot�o direito do Mouse, os itens marcados s�o desmarcados e eu perco as informa��es do BoorkMark do Grid? Como eu resolvo isso? Ou chamo o popup sem Ctrl pressionada e sem desmarcar o Grid ou mantenho pressionado a tecla Ctrl, mas chamando o evento OnCellClick.

Paulo · Answer

Tem como n�o manter a ordena��o do Grid em BookmarkList?...

F�rum D�vida com DbGrid - Ordena��o do Bookmark #368958