topic-6129

Posts: 13

Joined: Mon Feb 26, 2007 10:00 AM

Problema con el FOR
Posted: Tue Feb 27, 2007 11:27 AM

Hola! Este es mi primer post en FiveTechSoft. Hace un tiempo que soy asiduo a el y he visto muchos de vuestros ejemplos/problemas y me han ayudado en la programación. Saludos.

Mi duda es, (creo que sencilla), pero no doy con la solución. Os posteo el código.

FOR i := 1 TO 6
oFont[i]:End()
NEXT

Supongamos que tengo seis fuentes, y quiero cerrarlas con un FOR en el que se sustituya [i] por el valor que va tomando, es decir, para que hiciese lo mismo que este trozo de codigo.

oFont1:End()
oFont2:End()
oFont3:End()
oFont4:End()
oFont5:End()
oFont6:End()

Gracias por adelantado!

Kleyber

Posts: 581

Joined: Tue Oct 11, 2005 11:28 AM

Problema con el FOR
Posted: Tue Feb 27, 2007 11:32 AM

Hola new_indika,

Antes que nada bienvenido al foro.

Si lo entendi bien, una sugerencia seria:

Code: Select all Collapse

for nX:=1 to 6
     cX:=str(nX,1)
     oFont(nX):End()
next

Espero te sirva,

Saludos

Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Problema con el FOR
Posted: Tue Feb 27, 2007 12:08 PM

AEval( { oFont1, oFont2, oFont3, oFont4, oFont5, oFont6 }, { | o | o:End() } )

regards, saludos

Antonio Linares
www.fivetechsoft.com

new_indika

Posts: 13

Joined: Mon Feb 26, 2007 10:00 AM

Problema con el FOR
Posted: Tue Feb 27, 2007 12:34 PM

Muchas gracias!

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Problema con el FOR
Posted: Tue Feb 27, 2007 02:57 PM

Otra seria definir los fonts dentro del array, y luego cerrar con el bucle FOR ... NEXT

Code: Select all Collapse

LOCAL aFont[6]

DEFINE FONT aFont[1] ...
...
FOR i := 1 TO 6 
   aFont[i]:End() 
NEXT

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

ACC69

Posts: 632

Joined: Tue Dec 12, 2006 07:34 PM

Re: Problema con el FOR
Posted: Tue Feb 27, 2007 03:21 PM

new_indika wrote:Hola! Este es mi primer post en FiveTechSoft. Hace un tiempo que soy asiduo a el y he visto muchos de vuestros ejemplos/problemas y me han ayudado en la programación. Saludos.

Mi duda es, (creo que sencilla), pero no doy con la solución. Os posteo el código.

FOR i := 1 TO 6
oFont[i]:End()
NEXT

Supongamos que tengo seis fuentes, y quiero cerrarlas con un FOR en el que se sustituya [i] por el valor que va tomando, es decir, para que hiciese lo mismo que este trozo de codigo.

oFont1:End()
oFont2:End()
oFont3:End()
oFont4:End()
oFont5:End()
oFont6:End()

Gracias por adelantado!

Hola amigo prueba con esto:
AEval( oFont,{|o| o:End()} )

o de otra manera asi:
FOR X=1 TO 8
oFont[X]:End()
NEXT X... BUENO ES IGUAL, PERO A MI ME FUNCIONA

Ruben Fernandez

Posts: 366

Joined: Wed Aug 30, 2006 05:25 PM

Problema con el FOR
Posted: Wed Feb 28, 2007 02:25 AM

Amigo:

FOR i := 1 TO 6
oFont[i]:End()
NEXT

Tienes dos puntos en for i :=
debes sacarle los 2 puntos.

Saludos

Ruben Fernandez.

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Problema con el FOR
Posted: Wed Feb 28, 2007 04:21 AM

No seria mas practico si creas un array con los font y luego llamas el que quieras...? aFonts := { {Font1, font2, Font3, Fontn} }, nose, digo.

Dios no está muerto...

Gracias a mi Dios ante todo!

FiveTech Support Forums

Continue the discussion