<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=utf-8">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EstiloCorreo17
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EstiloCorreo18
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=ES link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Estimados colegas, ante todo, las gracias por sus respuestas,
que tendre en cuenta.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Ayer seguí cacharreando y encontré esta solución<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><span lang=EN-US
style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>if
not fdm.tTemp5.IsEmpty then<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> begin<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> if fdm.tTemp5.Active=true
then fdm.tTemp5.Active:=false;<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> fdm.tTemp5.FileName :=
camino_actual + '\temp.db';<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> fdm.tTemp5.SQL:='DELETE
FROM temp5';<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> fdm.tTemp5.ExecSQL;<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> if fdm.tTemp5.Active =
False then fdm.tTemp5.Active := True<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> else begin end;<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> end<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> else<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> begin
{ShowMessagePos('Vacia',10,10);} end;<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>ya que tengo que usar la tabla Temp5 varias veces con distintos
contenidos y pensé que es mejor comenzar por limpiarla antes de meterle nuevos
contenidos.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Pude comprobar que la tabla queda vacia, y puse dichas
instrucciones en el botón Salir para cerrar la forma con la tabla limpia.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Si hay mas observaciones, serán bienvenidas.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Gracias de nuevos a todos.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Ing. Héctor Fiandor<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>hfiandor@ceniai.inf.cu<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><o:p> </o:p></span></p>
<div>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>De:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> Juan Perles
[mailto:perlesj@gmail.com] <br>
<b>Enviado el:</b> domingo, 30 de agosto de 2015 11:03 a. m.<br>
<b>Para:</b> Spanish version of Lazarus List<br>
<b>Asunto:</b> Re: [Lazarus-es] comando EMPTY<o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal>Héctor como yo lo tengo es <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>glSQL := 'delete from ' + Nombretabla + ';';<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>EjecutarSentenciaSQL;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>Y tengo un procedimiento llamado SentenciaSQL que invoco
para ejecutar cualquier comando.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US>Procederé EjecutarSentenciaSQL;<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US> TrsGeneral.Commit;<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US> TrsGeneral.StartTransaction;<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US> With
SQLQuery do Begin;<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US>
Close;<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US>
SQL.Clear;<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US>
SQL.Text := glSQL;<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal><span lang=EN-US>
</span>ExecSql; <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> TrsGeneral.Commit;<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal>De esta manera para mí tan sólo son dos líneas.<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><o:p> </o:p></p>
</div>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'><o:p> </o:p></p>
<div>
<p class=MsoNormal>Juan Perles<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal>628.482.007<o:p></o:p></p>
</div>
<p class=MsoNormal>Enviado desde mi iPad<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'><br>
El 29/8/2015, a las 20:28, Héctor Fiandor <<a
href="mailto:hfiandor@ceniai.inf.cu">hfiandor@ceniai.inf.cu</a>> escribió:<o:p></o:p></p>
</div>
<blockquote style='margin-top:5.0pt;margin-bottom:5.0pt'>
<div>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Estoy usando sqlite.</span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Ya descubri que haciéndolo por comandos SQL limpia bien. La única
cosa en contra es que son como 6 lineas de comandos.</span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Saludos y escríbeme</span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'>Ing. Héctor Fiandor</span><o:p></o:p></p>
<p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'><a href="mailto:hfiandor@ceniai.inf.cu"><span lang=ES>hfiandor@ceniai.inf.cu</span></a></span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><o:p></o:p></p>
<p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";
color:#1F497D'> </span><o:p></o:p></p>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>De:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'> francisco prieto [<a
href="mailto:fajprieto@gmail.com">mailto:fajprieto@gmail.com</a>] <br>
<b>Enviado el:</b> sábado, 29 de agosto de 2015 12:02 p. m.<br>
<b>Para:</b> Spanish version of Lazarus List<br>
<b>Asunto:</b> Re: [Lazarus-es] comando EMPTY</span><o:p></o:p></p>
</div>
<p class=MsoNormal> <o:p></o:p></p>
<div>
<div>
<div>
<div>
<div>
<div>
<p class=MsoNormal style='margin-bottom:12.0pt'>Hector,<o:p></o:p></p>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'>Cual es el motor de base de
datos que estas usando porque por ejemplo en Firebird si no haces un Commit es
como si no hicieras nada.<o:p></o:p></p>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'>Saludos,<o:p></o:p></p>
</div>
<p class=MsoNormal>Pancho<o:p></o:p></p>
</div>
<p class=MsoNormal>Córdoba<o:p></o:p></p>
</div>
<p class=MsoNormal>Argentina<o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> <o:p></o:p></p>
<div>
<p class=MsoNormal>El 29 de agosto de 2015, 12:39, Héctor Fiandor <<a
href="mailto:hfiandor@ceniai.inf.cu" target="_blank">hfiandor@ceniai.inf.cu</a>>
escribió:<o:p></o:p></p>
<div>
<div>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Estimados
colegas:<o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Estoy
haciendo una aplicación donde tengo una tabla tTemp5 que deseo vaciar (borrar
datos solamente) para que comience “limpia”.<o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-US>Hago while not fdm.tTemp5.IsEmpty do fdm.tTemp5.delete;<o:p></o:p></span></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Pero
con esto solamente parece que no se alcanza el objetivo.<o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Les
agradeceré cualquier ayuda.<o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'>Gracias
por anticipado<o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'> <o:p></o:p></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-US>Ing. Héctor Fiandor<o:p></o:p></span></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-US><a href="mailto:hfiandor@ceniai.inf.cu" target="_blank">hfiandor@ceniai.inf.cu</a><o:p></o:p></span></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span
lang=EN-US> <o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal style='margin-bottom:12.0pt'><span lang=EN-US><br>
_______________________________________________<br>
Lazarus-es mailing list<br>
</span><a href="mailto:Lazarus-es@lists.lazarus.freepascal.org"><span
lang=EN-US>Lazarus-es@lists.lazarus.freepascal.org</span></a><span lang=EN-US><br>
</span><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target="_blank"><span lang=EN-US>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</span></a><span
lang=EN-US><o:p></o:p></span></p>
</div>
<p class=MsoNormal><span lang=EN-US> <o:p></o:p></span></p>
</div>
</div>
</blockquote>
<blockquote style='margin-top:5.0pt;margin-bottom:5.0pt'>
<div>
<p class=MsoNormal><span lang=EN-US>_______________________________________________<br>
Lazarus-es mailing list<br>
</span><a href="mailto:Lazarus-es@lists.lazarus.freepascal.org"><span
lang=EN-US>Lazarus-es@lists.lazarus.freepascal.org</span></a><span lang=EN-US><br>
</span><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"><span
lang=EN-US>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</span></a><span
lang=EN-US><o:p></o:p></span></p>
</div>
</blockquote>
</div>
</body>
</html>