Xailer & OZ Software

Quisiera analizar varios controles
if ::oNoEdit1:value = "Dom"
::oNoEdit1:nclrtext := clRed
endif
............
if ::oNoEdit5:value = "Dom"
::oNoEdit5:nclrtext := clRed
endif
Se podria hacer de alguna otra forma similar a (No me funciona):
for n= 1 to 5
varia := "nombre"+str(n,1,1)
::&varia:value := "Pajarito"+str(n,1)
next
Paco V

Paco,
> Quisiera analizar varios controles
> if ::oNoEdit1:value = "Dom"
> ::oNoEdit1:nclrtext := clRed
> endif
> ...........
> if ::oNoEdit5:value = "Dom"
> ::oNoEdit5:nclrtext := clRed
> endif
>
> Se podria hacer de alguna otra forma similar a (No me funciona):
>
> for n= 1 to 5
> varia := "nombre"+str(n,1,1)
> ::&varia:value := "Pajarito"+str(n,1)
> next
Lo más sencillo es:
LOCAL aControls := { ::oNoEdit1, ::oNoEdit2, ::oNoEdit3, ::oNoEdit4,
::oNoEdit5 }
LOCAL n
FOR n := 1 TO 5
IF aControls[n]:Value == "Dom"
aControls[n]:nClrText := clRed
ENDIF
NEXT
--
Un saludo,
José F. Giménez

Gracias Jose.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote:
>Paco,
>
>> Quisiera analizar varios controles
>> if ::oNoEdit1:value = "Dom"
>> ::oNoEdit1:nclrtext := clRed
>> endif
>> ...........
>> if ::oNoEdit5:value = "Dom"
>> ::oNoEdit5:nclrtext := clRed
>> endif
>>
>> Se podria hacer de alguna otra forma similar a (No me funciona):
>>
>> for n= 1 to 5
>> varia := "nombre"+str(n,1,1)
>> ::&varia:value := "Pajarito"+str(n,1)
>> next
>
>Lo más sencillo es:
>
> LOCAL aControls := { ::oNoEdit1, ::oNoEdit2, ::oNoEdit3, ::oNoEdit4,
>::oNoEdit5 }
> LOCAL n
>
> FOR n := 1 TO 5
> IF aControls[n]:Value == "Dom"
> aControls[n]:nClrText := clRed
> ENDIF
> NEXT
>
>--
>Un saludo,
>
>José F. Giménez
>
>

Paco,
Yo lo estoy utiizando así...
For n := 1 To 12
cIncident := __ObjSendMsg( Self, "oEdit" + AllTrim(Str(n)) ):cText
If !Empty( cIncident )
.... //código...
EndIf
Next
En tu caso, no lo he probado, supongo que funcionaría...
for n= 1 to 5
varia := __ObjSendMsg( Self, "oNoEdit" + AllTrim(Str(n)) )
varia:value := "Pajarito"+str(n,1)
next
Un saludo,
Xevi.
"Paco V" <ssi@ono.com> ha escrit al missatge del grup de discussió:
443a236d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Quisiera analizar varios controles
> if ::oNoEdit1:value = "Dom"
> ::oNoEdit1:nclrtext := clRed
> endif
> ...........
> if ::oNoEdit5:value = "Dom"
> ::oNoEdit5:nclrtext := clRed
> endif
>
> Se podria hacer de alguna otra forma similar a (No me funciona):
>
> for n= 1 to 5
> varia := "nombre"+str(n,1,1)
> ::&varia:value := "Pajarito"+str(n,1)
> next
>
> Paco V
>
>
>
>
>