Fórum Mulit select no db grid... #291882

var
 i : integer ;
begin
   if DBGrid1.SelectedRows.Count > 0 then
     with BD_CONT_REC do
       for i:= 0 to DBGrid1.SelectedRows.Count - 1 do
       begin
         GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
         BD_CONT_REC.delete;
       end;

procedure T_FormCRReceb.Quitar(Sender: TObject);
begin
  BD_ARQUIVO_MORTO_FIN.Close;
  BD_ARQUIVO_MORTO_FIN.Open;
  BD_ARQUIVO_MORTO_FIN.Insert;
  BD_ARQUIVO_MORTO_FINGS_ARF_DESCRICAO.Value := BD_CONT_RECGS_COR_DESCRICAO.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_NOME.Value := BD_CONT_RECGS_COR_NOME.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_CPF_CNPJ.Value := BD_CONT_RECGS_COR_CPF_CNPJ.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_CODPROD.Value := BD_CONT_RECGS_COR_CODPROD.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_N_PARCELAS.Value := BD_CONT_RECGS_COR_N_PARCELAS.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_DATA_VENC.Value := BD_CONT_RECGS_COR_DATA_VENC.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_DATA_CAD.Value := BD_CONT_RECGS_COR_DATA_CAD.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_CODACES.Value := BD_CONT_RECGS_COR_CODACESPAR.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_DATA_BAX.Value := FormatDateTime(´dd/mm/yyyy´,Date);
  BD_ARQUIVO_MORTO_FINGS_ARF_VALOR_TOTAL.Value := BD_CONT_RECGS_COR_VALOR_TOTAL.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_VALOR_PARCELA.Value := BD_CONT_RECGS_COR_VALOR_PARCELA.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_VALOR_ENT.Value := BD_CONT_RECGS_COR_VALOR_ENT.Value;
  BD_ARQUIVO_MORTO_FINGS_ARF_VALOR_PAGO.Value := Edit2.Text;
  BD_ARQUIVO_MORTO_FINGS_ARF_VENDEDOR.Value := BD_CONT_RECGS_COR_VENDEDOR.Value;
  BD_ARQUIVO_MORTO_FIN.Post;
BD_ARQUIVO_MORTO_FIN.Delete;
  end;

var
 i : integer ;
begin
   if DBGrid1.SelectedRows.Count > 0 then
     with BD_CONT_REC do
       for i:= 0 to DBGrid1.SelectedRows.Count - 1 do
       begin
         GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
         BD_CONT_REC.delete;
       end;

//var
//  i: Integer;
begin
  Memo1.Clear;
  With DBGrid1 do
  Begin
    if SelectedRows.Count > 0 then
      for i := 0 to Pred(SelectedRows.Count) do
      Begin
        posiciona nos registros selecionados do DBGrid
        IBUP_CONT_REC.Dataset.Bookmark := SelectedRows[i];
        Memo1.Lines.Add(´Selecionado: ´+BD_CONT_RECGS_COR_NOME.AsString);
   end;
  end; 
end;