• Domingo 22 de Diciembre de 2024, 17:12

Autor Tema:  Abreviando  (Leído 1548 veces)

VideoPascal

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Abreviando
« en: Miércoles 14 de Octubre de 2009, 17:07 »
0
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

epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
Re: Abreviando
« Respuesta #1 en: Miércoles 14 de Octubre de 2009, 17:22 »
0
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.  

VideoPascal

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Re: Abreviando
« Respuesta #2 en: Miércoles 14 de Octubre de 2009, 22:05 »
0
Ahh pues es cierto muchas gracias tendré que acostumbrarme a usar los corchetes :D