Funcionamiento de WITH OBJECT

[Jaime Irurzun]

Hola,
No tengo muy claro cuál es el funcionamiento de la estructura WITH
OBJECT...END, y como veo que en Xailer se usa muchí­simo me gustarí­a
saberlo bien. Creo que se trata de lo siguiente:
WITH OBJECT ::oBtnInsertar := TButton():New( Self )
:SetBounds( 16, 335, 80, 25 )
:cText := "&Insertar"
:nAnchors := akLEFTBOTTOM
:OnClick := "BtnInsertarClick"
:Create()
END
¿Eso equivale a esto otro?
::oBtnInsertar := TButton():New( Self )
::oBtnInsertar:SetBounds( 16, 335, 80, 25 )
::oBtnInsertar:cText := "&Insertar"
::oBtnInsertar:nAnchors := akLEFTBOTTOM
::oBtnInsertar:OnClick := "BtnInsertarClick"
::oBtnInsertar:Create()
Es decir, ¿el WITH OBJECT sirve para escribir código más legible (que
desde luego lo hace si realmente lo de arriba es equivalente a lo de
abajo), o hace algo más?
También he visto cosas como esta:
WITH OBJECT TIni():New( ".ArchivoIni.ini" )
:GetEntry( "SECCION", "Entrada", xDefault )
END
En este caso ni siquiera se usa una variable objeto (como en el caso de
arriba, donde aparece ::oBtnInsertar). ¿También el WITH OBJECT te ahorra
declarar una variable para el objeto y lo hace él internamente si no lo
especificas? Son todo suposiciones mí­as... lo que pasa es que me
gustarí­a saber si esto es realmente así­. Muchas gracias a quien me lo
aclare
--
Un saludo,
Jaime Irurzun.
www.codigoescrito.com

[jlalin]

Jaime,
tú mismo lo has explicado Sólo añadir que también es posible anidar
sentencias WITH OBJECT dentro de otras.
Saludos,
José Lalí­n

[Jaime Irurzun]

Gracias José,
Sólo una duda: ¿y en qué casos puede ser útil anidar estructuras WITH
OBJECT?
--
Un saludo,
Jaime Irurzun.
www.codigoescrito.com
José Lalí­n escribió:
>
> Jaime,
>
> tú mismo lo has explicado Sólo añadir que también es posible anidar
> sentencias WITH OBJECT dentro de otras.
>
> Saludos,
> José Lalí­n

[jfgimenez]

Jaime,
> Sólo una duda: ¿y en qué casos puede ser útil anidar estructuras WITH
> OBJECT?
Cuando uno de los miembros del objeto que estás usando en el primer WITH
OBJECT es a su vez otro objeto. P.ej.:
WITH OBJECT ::oTreeView1
WITH OBJECT :oImageList
:Add( "Imagen1" )
:Add( "Imagen2" )
:Add( "Imagen3" )
END
:AddItem( "Uno", 1 )
:AddItem( "Dos", 2 )
:AddItem( "Tres", 3 )
END
--
Un saludo,
José F. Giménez

[jlalin]

Jaime,
> Sólo una duda: ¿y en qué casos puede ser útil anidar estructuras WITH
> OBJECT?
tal como dice Jose F., como norma general suele usarse con objetos de
tipo contenedor.
Saludos,
José Lalí­n

[Jaime Irurzun]

Gracias a los dos,
Ya lo tengo claro.
--
Un saludo,
Jaime Irurzun.
www.codigoescrito.com
José Lalí­n escribió:
>
> Jaime,
>
>> Sólo una duda: ¿y en qué casos puede ser útil anidar estructuras WITH
>> OBJECT?
>
>
> tal como dice Jose F., como norma general suele usarse con objetos de
> tipo contenedor.
>
> Saludos,
> José Lalí­n