FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Problema con DBGrid
Hola foristas, miren tengo el siguiente codigo.
procedure TForm1.Button1Click(Sender: TObject); var LiReg, LiCont : integer; begin LiReg := Table1.RecordCount; LiCont := 0; while LiCont <= LiReg do begin DBGrid1.SelectedRows.CurrentRowSelected := True; borrar; LiCont := LiCont + 1; Table1.Next; end; end; procedure TForm1.borrar; var contador : integer; begin if DBGrid1.SelectedRows.Count > 0 then With Table1 Do For Contador := 0 to DBGrid1.SelectedRows.Count - 1 do begin GotoBookMark(pointer(DBGrid1.SelectedRows.Items[Contador])); table1.Delete; end; end; Mi proposito con este es a medida que seleciono todos los registros de una tabla los elimino, el problema es que no los elimina todos debido a que llega un momento en que en el procemiento borrar (if DBGrid1.SelectedRows.Count > 0 then) Count es igual a 2 sabiendo que se a seleccionado 1 solo y por supuesto saca un error donde dice que registro no encontrado. Les pido me colaboren saliendo de este problema. Gracias.
__________________
Siempre hay un primer momento para todo. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|