Xailer & OZ Software

Puesto que el Ide no permite generar nombres de objetos en array ,puedo en
un proceso (como un for->next ) referirme a los objetos através de una
sentencia macro ??
Ejemplo
::&("oLabel"+str(nK,1)) :cText

Juan José,
> Puesto que el Ide no permite generar nombres de objetos en array ,puedo en
> un proceso (como un for->next ) referirme a los objetos através de una
> sentencia macro ??
>
> Ejemplo
> ::&("oLabel"+str(nK,1)) :cText
Hay una forma más sencilla y rápida: la función __ObjSendMsg(). P.ej:
MsgInfo( __ObjSendMsg( Self, "oLabel" + Str( n, 1 ) ):cText )
o:
__ObjSendMsg( Self, "oLabel" + Str( n, 1 ) ):cText := "Label " + Str( n,
1 )
Y por supuesto, nada te impide añadir una DATA al formulario y poner en el
evento OnInitialize del formulario algo así, para después acceder a los
controles que necesites con un array:
DATA aLabels
...
::aLabels := { ::oLabel1, ::oLabel2, ::oLabel3 }
--
Un saludo,
José F. Giménez

Jose,
Otra cosa que he aprendido...
Ya lo he implementado... y me he ahorrado algun que otro array.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:43836807$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Juan José,
>
>> Puesto que el Ide no permite generar nombres de objetos en array ,puedo
>> en un proceso (como un for->next ) referirme a los objetos através de
>> una sentencia macro ??
>>
>> Ejemplo
>> ::&("oLabel"+str(nK,1)) :cText
>
> Hay una forma más sencilla y rápida: la función __ObjSendMsg(). P.ej:
>
> MsgInfo( __ObjSendMsg( Self, "oLabel" + Str( n, 1 ) ):cText )
> o:
> __ObjSendMsg( Self, "oLabel" + Str( n, 1 ) ):cText := "Label " + Str(
> n, 1 )
>
> Y por supuesto, nada te impide añadir una DATA al formulario y poner en el
> evento OnInitialize del formulario algo así, para después acceder a los
> controles que necesites con un array:
>
> DATA aLabels
> ...
> ::aLabels := { ::oLabel1, ::oLabel2, ::oLabel3 }
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>