Multiselect DBGRID

[kainchu3102]

Lo logre de esta manera, pero si elijo tres registro con multiselect para eliminar me los elimina bien, pero me muestra 3 veces el Showmessage('paso2') y 1 el Showmessage('paso3') jajaja cosa eloco.

Código Delphi [-]
procedure TFORMABMCURSOS.BitBtn2Click(Sender: TObject);
  var
  X: Integer;

begin
  if DBGABMCURSO.SelectedRows.Count = 0 then
  begin
  Exit;
  ShowMessage('paso 1')
  end
  else
  begin
     for X := 0 to DBGABMCURSO.SelectedRows.Count -1 do

       With MDATOS_DANZA.FDQABMCUOTAS do
      Begin
      DBGABMCURSO.DataSource.DataSet.GotoBookmark(TBookmark(DBGABMCURSO.SelectedRows.Items[X]));
           SQL.Clear;
       SQL.Add ('DELETE FROM cuotas WHERE id_cuo = :ID_CUOE');
        Params.ParamByName('ID_CUOE').Value := DBGABMCURSO.datasource.dataset.fieldbyname ('id_cuo'). Asinteger;
     
       ExecSQL;
       if RowsAffected = 1 then
       begin
        
          ShowMessage('paso 2')
       end;
         //FORMRESULTADOS.DBGRESULTADOS.DataSource.DataSet.Refresh;
       end;
          ShowMessage('paso 3')

  end;


end;

[Garada]

Empezado por kainchu3102

Lo logre de esta manera, pero si elijo tres registro con multiselect para eliminar me los elimina bien, pero me muestra 3 veces el Showmessage('paso2') y 1 el Showmessage('paso3') jajaja cosa eloco.

Y es correcto.

Código Delphi [-]
Params.ParamByName('ID_CUOE').Value := DBGABMCURSO.datasource.dataset.fieldbyname ('id_cuo'). Asinteger;

Este línea ya asigna el valor del campo como te comentaba.


"Paso2" ocurre cada vez que el borrado tiene éxito y "Paso3" al salir del bucle.

Aquí ya me he perdido con el objetivo del código.
Borrar los registros, ya los borra. ¿Qué quieres informar en "paso2" y en "paso3"?