Manejo de Array

1,607 views
Skip to first unread message

Arnaldo Toledano

unread,
Mar 24, 2017, 3:06:19 PM3/24/17
to publice...@googlegroups.com

Nunca maneje Array en VFP y ahora que los necesito me encuentro con varios problemas.

Dudas.
1.- Al declarar un ARRAY es necesario si o si darle los datos de la dimensión??
Es decir
ARRAY01[999]

Porque he intentado con
ARRAY01[] y me da error.
En mi caso particular NO SE de antemano la cantidad de elementos que va a necesitar.
Por lo que me veo obligado a dimensionarlo "por las dudas" con 999

2.- Para rellenar un Array con 0 (ceros), por ejemplo.
No encuentro ninguna función.
Por lo que he echo
For X=1 To 999
      Array01[X]=0
Next

Los Clipperos me van a entender mejor.
En Clipper hacías lo siguiente

Para declararlo
ARRAY01:={}

Para rellenarlo
AADD(Array01,125.20)
Si era el primero, iva en la posicion 1
Y asi susecivamente.

Para ver el la cantidad de elementos.
Nro=Len(Array01)

Agradecere informacion


Arnaldo Toledano


  

Arnaldo Toledano

unread,
Mar 24, 2017, 3:21:40 PM3/24/17
to publice...@googlegroups.com

Me olvide de preguntar, si se puede "guardar" el array en una propiedad del FORM.
si es asi, como se hace.


Arnaldo Toledano

Jorge L. Florez C.

unread,
Mar 24, 2017, 3:27:16 PM3/24/17
to publice...@googlegroups.com
Hola.


dime array[1000] .... declaras

array = 0................. asignas un valor para todos los elementos del array

El resto es revisar funciones de array

aelement
ascan
asubscript

etc.

Saludos
Jorge Florez
Lima - Perú


Víctor Hugo Espínola Domínguez

unread,
Mar 24, 2017, 4:17:27 PM3/24/17
to publice...@googlegroups.com
Menú Form/New property... y en el nombre pones aMiArray[1]

o por código en cualquier método Thisform.AddProperty(aMiArray[1])

Con el comando DIMENSION agrandas o achicas el array.

Saludos,
Víctor.
Lambaré - Paraguay.

Arnaldo Toledano

unread,
Mar 24, 2017, 5:06:22 PM3/24/17
to publice...@googlegroups.com

Gracias Victor.
Es decir que puedo definir el array como una propiedad con un dimesion=1
Cuando sepa la cantidad real de elementos que tenga, directamente la puedo
invocar nuevamente, supongamos

aMiArray[23]

Y puedo invocarla en otra parte del formulario como una propiedad ?

Bárbaro

Gracias nuevamente Victor


Arnaldo Toledano

Víctor Hugo Espínola Domínguez

unread,
Mar 24, 2017, 5:12:41 PM3/24/17
to publice...@googlegroups.com
DIMENSION Thisform.aMiArray[23]

Saludos,
Víctor.
Lambaré - Paraguay.


ZeRoberto

unread,
Mar 24, 2017, 6:41:12 PM3/24/17
to publicesvfoxpro
LOCAL ARRAY laArray[10]

laArray = 0

Ahi se llena el array de ceros

El 24 de marzo de 2017, 16:12, Víctor Hugo Espínola Domínguez<vich...@gmail.com> escribió:
DIMENSION Thisform.aMiArray[23]

Saludos,
Víctor.
Lambaré - Paraguay.


ArturoPC

unread,
Mar 24, 2017, 6:52:17 PM3/24/17
to Comunidad de Visual Foxpro en Español
Puedes redimensionar la matriz en cualquier momento y lo previamente asignado no se perderá, por lo que no necesitas crear una con 999 arreglos

Por ejemplo:
DIMENSION laarray01(1)
lnContador=0

IF condicion1
   lnContador = lnContador + 1
   DIMENSION laarray01(lnContador)
   laarray01(lnContador) = valor1
ENDIF

IF condicion2
   lnContador = lnContador + 1
   DIMENSION laarray01(lnContador)
   laarray01(lnContador) = valor2
ENDIF

IF condicion3
   lnContador = lnContador + 1
   DIMENSION laarray01(lnContador)
   laarray01(lnContador) = valor3
ENDIF

Y así...

ArturoPC

HernanCano

unread,
Mar 25, 2017, 12:38:19 AM3/25/17
to Comunidad de Visual Foxpro en Español
Qué bien, Arturo. 
Yo programo así también.

Fernando D. Bozzo

unread,
Mar 27, 2017, 4:02:37 AM3/27/17
to Comunidad de Visual Foxpro en Español
Hola Arnaldo:

Jorge, Víctor, Roberto y Arturo te dieron buenas ideas de cómo manejar un array, yo solo te dejo un pequeño artículo que te puede servir:

VFP: Algunas formas de usar los arrays


Saludos.-

morenob...@gmail.com

unread,
Mar 27, 2017, 8:11:56 AM3/27/17
to Comunidad de Visual Foxpro en Español
Hola Señor / Señora,

Soy la señora Moreno Blanca que estaba en busca de préstamo en efectivo durante varios meses yo era 6 veces víctimas de la estafa con los prestamistas necesarios que runa de mí, hice un intento de suicidio a causa de ellos. Para que tenía deudas y cuentas que pagar. Pensé que había terminado para mí no tengo más sentido para vivir. Pero afortunadamente vi los testimonios realizados por muchas personas en el Sr. ROBERTO LAGOS, así es como me puse en contacto para mi préstamo para pagar mis deudas y mi proyecto. Con el Sr. ROBERTO LAGOS que la vida, mi sonrisa es un nuevo sencillo MR y el corazón muy comprensivo. Cuidado con los prestamistas llegados de África, porque hay prestamistas privados de hecho de nosotros Si usted necesita financiación; prestar dinero o cualquier proyecto que lograr este MAN le ayudará a alcanzar y sostener financieramente usted

banque.jpg

Carlos Miguel FARIAS

unread,
Mar 27, 2017, 9:53:52 AM3/27/17
to Grupo Fox
Interesante, que una persona que fue estafada por prestamistas SEIS VECES, ahora promocione otro prestamista es SEÑAL de que no se le puede prestar la más mínima confianza.
Como sabemos si esta señora ahora no esta promocionando este préstamo amenazada por Roberto Lagos?
Y señora, tenga cuidado, no vaya a ser que por suicidarse, SE MATE.

Fernando D. Bozzo

unread,
Mar 27, 2017, 11:13:36 AM3/27/17
to publice...@googlegroups.com
Que mala traducción automática! Por dios... 

Antonio Meza

unread,
Mar 27, 2017, 11:59:41 AM3/27/17
to Comunidad de Visual Foxpro en Español
Después de leer el comentario me dieron ganas de suicidarme pero porque no puedo parar de reírme jajajajajajajajajajaja

jajajajajajajaja
jajajajajaajajajajajajaja
jajajajajajajajaajajajaj

Al rato va a decir que fue estafa 7 veces porque Roberto Lagos también la estafo y luego conoció a Telorino Parado jajajajajajajajajajaja y este a parte de estafarla la dejo bien mojada!!! jajajajajajaja y luego va a conocer a Telomeo Acuestas, y así su triste historia jajajajajajajajajajajajaja

NOTA: La verdad es que mucha gente ignorante e ingenua por no decir otra palabra, cae en este tipo de estafas y otros tipos de estafas todos los días!!!

saludos
Antonio Meza
Reply all
Reply to author
Forward
0 new messages