<!DOCTYPE html><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-family:'DejaVu Sans Mono'; font-size:13px}</style>
</head>
<body dir="auto" bgcolor="#ffffff">On Wed, 08 Feb 2017 11:13:23 -0600, Ismael L. Donis Garcia via Lazarus-es <lazarus-es@lists.lazarus-ide.org> wrote:<br><br><blockquote style="margin: 0 0 0.80ex; border-left: #0000FF 2px solid; padding-left: 1ex">
<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></body></html>