[Lazarus-es] una duda ...

christian Ortiz xortix en gmail.com
Jue Jul 22 19:36:34 CEST 2010


i estoy probando y me doy cuenta que si solo hago

TfullData.create() funciona, pero cuando asigno es donde me da el error,
como si fuera readONly

El 22 de julio de 2010 12:21, christian Ortiz <xortix en gmail.com> escribió:

> 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
>



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


More information about the Lazarus-es mailing list