[Lazarus-es] una duda ...

[christian Ortiz]

me explico un poco mejor:

tego una clase, TFullpanelData que esta en la unit  FullData

en mi nueva unit la tengo agregada en uses es decir:

uses forms, ...., FullData;

luego en public tengo

FullDataPrincipal : TFullData;

y en un procedimiento tengo:

if  Assigned(FullPanelPrincipal) then
               FullPanelPrincipal.Destroy();
 FullPanelPrincipal := TfullpanelData.create();

esto lo necesito ya que voy a lllamar a cada rato a ese mismo procedimiento
cargandolo con distintas opciones. Si no le pongo el assigned, la1ra vez
muetra correcto, pero la 2da, obviamnete me manda un error, por lo q
necesito detruirlo.


El 22 de julio de 2010 12:09, José Mejuto <joshyfun en gmail.com> escribió:

> Hello christian,
>
> Thursday, July 22, 2010, 6:42:04 PM, you wrote:
>
> cO> tenia un procedimiento dentro de una unidad de un form, que creaba un
> objeto
> cO> en tiempo de diseno, lo pase a otra unidad, puse las variables en
> publica,
> cO> pero ahora manda error en la funcion assigned, lo pone como un acces
> cO> violation
> cO> *if*  *Assigned*(FullPanelPrincipal) *then*
> cO>                FullPanelPrincipal.Destroy();
> cO> FullPanelPrincipal *:=* TfullpanelData.create();
>
> Si te da error en la linea de "Assigned" es que la información de
> linea está mal, ya que assigned no puede fallar a manos que
> "FullPanelPrincipal" sea una variable de la clase actual, y esta clase
> no esté instanciada, esto es "Self" es o "nil" o inválido.
>
> cO> manda error en el Assigned, y FullPanelPrncipal es una variable public
> en la
> cO> misma unidad
>
> Por cierto:
>
> if Assigned(FullPanelPrincipal) then FullPanelPrincipal.Destroy();
>
> Es exactamente lo mismo que:
>
> FullPanelPrincipal.Free;
>
> --
> Best regards,
>  José
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>



-- 
Christian
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20100722/4b27a629/attachment-0002.html>