Página 1 de 1

COMO TERMINAR EL ARREGLO

Publicado: Vie Ene 30, 2009 9:13 pm
por David[1]
::num := 1
::pub := 0
::y := "12"
::comodin := 12
Do While ::num <= 12
::x := '::oMaskedit'
::f := ::x + ::y + ':Value'
If ::F = "S"
::pub := ::pub + 1
Endif
::num := ::num + 1
::comodin := ::comodin + 1
::y := ::y + 1
Enddo
EN 12 :.OMASKEDIT ESTOY CAPTURANDO UNA "S" O UNA "N" Y CON EL ARREGLO
ANTERIOR QUIERO SABER CUANTAS "S" SE CAPTURARON. QUE EN CADA "S" QUE
ENCUENTRE ME INCREMENTE LA VARIABLE ::PUB
PORQUE EN CLIPPER ANTEPONIENDO EL & EN LA VARIABLE EN ESTE CASO F YO PODIA
HACERLO AQUI EN XAILER COMO SERIA

COMO TERMINAR EL ARREGLO

Publicado: Dom Feb 01, 2009 2:50 pm
por jfgimenez
David,
> ::num := 1
> ::pub := 0
> ::y := "12"
> ::comodin := 12
>
> Do While ::num <= 12
> ::x := '::oMaskedit'
::f := __ObjSendMsg( Self, ::x + ::y ):Value
> If ::F = "S"
> ::pub := ::pub + 1
> Endif
> ::num := ::num + 1
> ::comodin := ::comodin + 1
> ::y := ::y + 1
> Enddo
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info