SoloCodigo

Programación General => Pascal => Mensaje iniciado por: VideoPascal en Miércoles 14 de Octubre de 2009, 17:07

Título: Abreviando
Publicado por: VideoPascal en Miércoles 14 de Octubre de 2009, 17:07

Supongamos que tengo 100 booleanas: IsN1, IsN2, IsN3, IsN4…IsN100
Quiero hacer esto.

If IsN (Número) = True then

   Número := (Número) ;

Pero no quiero tener que ir:

If IsN1 = True then

   Número := 1 ;

If IsN2 = True then

   Número := 2 ;

If IsN3 = True then

   Número := 3 ;
…

¿Hay algun modo de hacer este tipo de cosas sin ir caso a caso? Gracias

Título: Re: Abreviando
Publicado por: epayan en Miércoles 14 de Octubre de 2009, 17:22

usa un ciclo

Código: Pascal

1.  
2. For contador :=1 to 100 do
3. begin
4.        If LS[contador] then
5.           numero := contador
6.  end;
7.  
8.  

Título: Re: Abreviando
Publicado por: VideoPascal en Miércoles 14 de Octubre de 2009, 22:05

Ahh pues es cierto muchas gracias tendré que acostumbrarme a usar los corchetes :D