<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML><HEAD>
<META http-equiv=content-type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.5512" name=GENERATOR>
<STYLE type=text/css>BODY {
FONT-SIZE: 13px; FONT-FAMILY: 'DejaVu Sans Mono'
}
</STYLE>
</HEAD>
<BODY dir=auto bgColor=#ffffff>
<DIV><FONT face=Arial size=2>ok, Muchas Gracias</FONT></DIV>
<DIV>========<BR>| ISMAEL |<BR>========</DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=lazarus-es@lists.lazarus-ide.org
href="mailto:lazarus-es@lists.lazarus-ide.org">Jesus Reyes A. via
Lazarus-es</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus-ide.org
href="mailto:lazarus-es@lists.lazarus-ide.org">Spanish version of Lazarus
List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Cc:</B> <A title=jesusrmx@gmail.com
href="mailto:jesusrmx@gmail.com">Jesus Reyes A.</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, February 08, 2017 12:45
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Lazarus-es] Eliminar
registros de un dbgrid en Lazarus</DIV>
<DIV><BR></DIV>On Wed, 08 Feb 2017 11:13:23 -0600, Ismael L. Donis Garcia via
Lazarus-es <<A
href="mailto:lazarus-es@lists.lazarus-ide.org">lazarus-es@lists.lazarus-ide.org</A>>
wrote:<BR><BR>
<BLOCKQUOTE
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0.8ex; BORDER-LEFT: #0000ff 2px solid">
<DIV><FONT face=Arial size=2>He probado de varias formas y de ninguna
funciona:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2> if (dbg.DataSource.DataSet.RecordCount
> 0) then begin<BR> dbg.DataSource.DataSet.Close; // de
esta forma<BR>
dbg.DataSource.DataSet.Open;<BR> dt.DataSet.Close; // de
esta otra forma<BR> dt.DataSet.Open;<BR>
//dbg.DataSource.DataSet.First;<BR> //while not
dbg.DataSource.DataSet.EOF do<BR> //
dbg.DataSource.DataSet.Delete;<BR> end;<BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Solo funciona el ciclo, pero si el grid tiene
muchos datos no se ve bien porque se ve como decrese</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV></BLOCKQUOTE>
<DIV><BR></DIV>
<DIV>En realidad solo necesitas trabajar con el dataset, no con el grid.</DIV>
<DIV><BR></DIV>
<DIV>Congela/Descongela la visualización de datos con
DisableControls/EnableControls:</DIV>
<DIV><BR></DIV>
<DIV>Dataset.DisableControls;</DIV>
<DIV>Dataset.First;</DIV>
<DIV>while not Dataset.EOF do Dataset.Delete;</DIV>
<DIV>Dataset.EnableControls;</DIV>
<DIV><BR></DIV>
<DIV>Saludos.</DIV>
<DIV><BR></DIV>
<DIV>Jesus Reyes A.</DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus-ide.org<BR>http://lists.lazarus-ide.org/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>