Xailer & OZ Software

Hola a todos, tengo 20 TEdits en un form (llamados Text0, Text1..Text19) y
necesito recorrerlos todos varias veces para asignarle o quitarle valores,
pero evidentemente, no quiero hacerlo uno por uno, si no que quiero hacerlo
con un for next, pero no me sale.
Sería algo así:
For i = 0 To 19
::Texti:value = nil
Next i
Pero evidentemente no funciona
¿Alguna ayuda?
Gracias

Prueba esto:
For i = 0 To 19
cI := Alltrim( str( nI ) )
::Text&cI.:value = nil
Next i
Saludos
Alf+.
Ramón Torreblanca escribió:
> Hola a todos, tengo 20 TEdits en un form (llamados Text0, Text1..Text19) y
> necesito recorrerlos todos varias veces para asignarle o quitarle valores,
> pero evidentemente, no quiero hacerlo uno por uno, si no que quiero hacerlo
> con un for next, pero no me sale.
>
> Serí­a algo así­:
>
> For i = 0 To 19
> ::Texti:value = nil
> Next i
>
> Pero evidentemente no funciona
>
> ¿Alguna ayuda?
>
> Gracias
>
>

Gracias, pero me da error. Al final he recurrido a
for each oControl IN ::aControls
if oControl:IsKindOf( "TEdit" )
oControl:value := nil
...
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje news:48b066b7$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Prueba esto:
>
> For i = 0 To 19
> cI := Alltrim( str( nI ) )
> ::Text&cI.:value = nil
> Next i
>
> Saludos
>
> Alf+.
>
>
> Ramón Torreblanca escribió:
>> Hola a todos, tengo 20 TEdits en un form (llamados Text0, Text1..Text19)
>> y necesito recorrerlos todos varias veces para asignarle o quitarle
>> valores, pero evidentemente, no quiero hacerlo uno por uno, si no que
>> quiero hacerlo con un for next, pero no me sale.
>>
>> Sería algo así:
>>
>> For i = 0 To 19
>> ::Texti:value = nil
>> Next i
>>
>> Pero evidentemente no funciona
>>
>> ¿Alguna ayuda?
>>
>> Gracias

Ramón,
> Hola a todos, tengo 20 TEdits en un form (llamados Text0, Text1..Text19) y
> necesito recorrerlos todos varias veces para asignarle o quitarle valores,
> pero evidentemente, no quiero hacerlo uno por uno, si no que quiero
> hacerlo con un for next, pero no me sale.
>
> Serí­a algo así­:
>
> For i = 0 To 19
> ::Texti:value = nil
> Next i
For i := 1 To 20
__objSendMsg( Self, "Text" + LTrim( Str( i ) ) ):Value := Nil
Next
Otra alternativa (que a mí­ me gusta más porque puedes discriminar
exactamente qué controles quieres tratar) serí­a:
LOCAL aControles := { ::Text1, ::Text2, ... }
LOCAL oControl
FOR EACH oControl IN aControles
oControl:Value := Nil
NEXT
Ese array 'aControles' lo puedes rellenar una sóla vez en el evento
OnInitialize y guardarlo como DATA en el formulario para usarlo donde lo
necesites.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Muchas gracias Jose.
"José F. Giménez" <jfgimenez-arroba@wanadoo.es> escribió en el
mensaje news:48b29e91$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ramón,
>
>> Hola a todos, tengo 20 TEdits en un form (llamados Text0, Text1..Text19)
>> y necesito recorrerlos todos varias veces para asignarle o quitarle
>> valores, pero evidentemente, no quiero hacerlo uno por uno, si no que
>> quiero hacerlo con un for next, pero no me sale.
>>
>> Sería algo así:
>>
>> For i = 0 To 19
>> ::Texti:value = nil
>> Next i
>
> For i := 1 To 20
> __objSendMsg( Self, "Text" + LTrim( Str( i ) ) ):Value := Nil
> Next
>
> Otra alternativa (que a mí me gusta más porque puedes discriminar
> exactamente qué controles quieres tratar) sería:
>
> LOCAL aControles := { ::Text1, ::Text2, ... }
> LOCAL oControl
>
> FOR EACH oControl IN aControles
> oControl:Value := Nil
> NEXT
>
> Ese array 'aControles' lo puedes rellenar una sóla vez en el evento
> OnInitialize y guardarlo como DATA en el formulario para usarlo donde lo
> necesites.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info