<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Claro, si las declaras fuera de la clase del formulario las variables quedan como "globales" (solo para los que tengan la unit del formulario en su uses).</div>
<div class="gmail_default" style="font-family:tahoma,sans-serif">Si necesitas acceder a estos valores desde fuera, el consejo es que agregues propiedades en el formulario, o las pongas en la sección <b>public</b>, sino sigue el consejo de Maxi y mantenlas privadas.</div>
<div class="gmail_default" style="font-family:tahoma,sans-serif">Otra alternativa sería pasarlas a 0 en el OnCreate.</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/9/3 Maxi <span dir="ltr"><<a href="mailto:maximiliano.duarte@gmail.com" target="_blank">maximiliano.duarte@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">El día 3 de septiembre de 2013 16:47, Ismael L. Donis Garcia<br>
<<a href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</a>> escribió:<br>
<div><div class="h5">> Tengo una gran duda sobre la declaración de variables en formulario.<br>
><br>
> Si declaro una variable de la siguiente forma:<br>
><br>
> implementation<br>
><br>
> var<br>
>  ddebe, dhaber: double;<br>
><br>
> y llamo el formulario de la siguiente forma:<br>
><br>
>  f:=form1.Create(Self);<br>
>  f.ShowModal;<br>
>  f.Free;<br>
><br>
> Y dentro del formulario le doy valores a las variables ddebe y dhaber y<br>
> cierro el formulario con self.close;<br>
><br>
> Cuando entro de nuevo al formulario se me conservan los valores de las<br>
> variables ddebe y dhaber.<br>
><br>
> Ahora mi duda:<br>
><br>
> Si yo cierro el formulario porque se me mantiene el valor de las variables<br>
> que yo había calculado en la entrada anterior?<br>
> Este valor no debería ser =0 al volver a entrar de nuevo al formulario?<br>
> Cual es la causa de este comportamiento?<br>
><br>
> Desde ya Gracias<br>
> ========<br>
> | ISMAEL |<br>
> ========<br>
> Only for the small landowners and Cubans companies<br>
> Website: <a href="http://www.sisconge.byethost15.com" target="_blank">www.sisconge.byethost15.com</a><br>
>              <a href="http://www.sisconge.hol.es" target="_blank">www.sisconge.hol.es</a><br>
><br>
><br>
> _______________________________________________<br>
> Lazarus-es mailing list<br>
> <a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br>
<br>
</div></div>esta mal declarado y usado.<br>
<br>
Deberias hacerlo asi:<br>
<br>
TformX<br>
.<br>
.<br>
.<br>
.<br>
Private<br>
 ddebe, dhaber: double;<br>
end;<br>
<br>
Si lo declaras en la implementacion es como global al archivo.<br>
<br>
Self es el objeto actual en el momento de llamarlo, y le estas<br>
diciendo que Form1 se cree como pariente del objeto que trae Self. El<br>
destructor del objeto llamador se encargaria de destruir a Form1.<br>
yo lo uso de una forma mas segura<br>
<br>
 with Tform1.Create(nil)<br>
 try<br>
   Showmodal;<br>
 finally<br>
  Free;<br>
end;<br>
<br>
o<br>
 with Tform1.Create(nil)<br>
 try<br>
   Showmodal; // y en el evento oncanclose colocas:  Action := caFree;<br>
 except<br>
  Free;<br>
end;<br>
<span class="HOEnZb"><font color="#888888"><br>
<br>
--<br>
El que pregunta aprende, y el que contesta aprende a responder.<br>
<br>
No a la obsolecencia programada:<br>
<a href="http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml" target="_blank">http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml</a><br>
<br>
Linux User #495070<br>
<a href="http://domonetic.com/blog" target="_blank">http://domonetic.com/blog</a><br>
</font></span><div class="HOEnZb"><div class="h5"><br>
_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br><div><span style="font-family:tahoma,sans-serif">Try not to become a man of success but rather to become a man of value. <i>Albert Einstein</i></span></div>

</div>