uso de case

[juaarias]

gente queria saber si se pues realizar 2 asignaciones en un misma sentencia del case:
algo asi quisiera sabeer
case (cmbNivel) then
0:lblNivel.caption:=alto;
1:lblNivel.Caption:=medio;
2:lblNivel.Caption:=bajo (y tambien poder hacer aqui=)lblAdvertencia:caption:=¡¡¡PRECAUCION¡¡¡;

ESPERO SE ENTIENDA

[Casimiro Notevi]

Empezado por juaarias

gente queria saber si se pues realizar 2 asignaciones en un misma sentencia del case:
algo asi quisiera sabeer
case (cmbNivel) then
0:lblNivel.caption:=alto;
1:lblNivel.Caption:=medio;
2:lblNivel.Caption:=bajo (y tambien poder hacer aqui=)lblAdvertencia:caption:=¡¡¡PRECAUCION¡¡¡;

ESPERO SE ENTIENDA

Hola, se puede, sólo debes encerrarlo entre begin end

Código Delphi [-]
case cmbNivel.itemindex of
  0:lblNivel.caption:='alto';
  1:lblNivel.Caption:='medio';
  2:begin
      lblNivel.Caption:='bajo';
      lblAdvertencia:caption:='¡¡¡PRECAUCION!!!';
    end;
end;

¡¡¡Recuerda poner etiquetas al código!!!

[juaarias]

busque y busque y no pude dar con esto gracias genio diculpas soy novato

[[oscarac]]

casimiro se refiere a estas etiquetas

[juaarias]

estoy intentado agragar a un case que si el itemIndex esta entre a y d, decir por ejemplo categoria UNO,no me doy cuenta como hacerlo ayuda plis jej

Código Delphi [-]
case cmbNivel.itemindex of
   (a y d):lblNivel.caption:='Unoo';//obvio el y es simbolico muy pseudo jeje
   1:lblNivel.Caption:='medio';
   2:begin
       lblNivel.Caption:='bajo';
       lblAdvertencia:caption:='¡¡¡PRECAUCION!!!';
     end;
 end;

[juaarias]

estoy intentado agragar a un case que si el itemIndex esta entre a y d, decir por ejemplo categoria UNO,no me doy cuenta como hacerlo ayuda plis jej
Código:

Código Delphi [-]
case cmbNivel.itemindex of   a y d:lblNivel.caption:='Uno';   .
   .
 end;

[ecfisa]

Hola juarias.

Te pongo un ejemplo con un RadioGroup:

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0..1: ShowMessage('0 a 1');
    2..3: ShowMessage('2 a 3');
    4..5: ShowMessage('4 a 5');
  end;
end;

Saludos.

[juaarias]

hola gente queria consultarles sobre donde esta el error en el siguiente codigo:
//calculo estadia

Código Delphi [-]
case cmbCantidad.ItemIndex  of
    (0):begin
        case a of
        (a<7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750);
        (a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
        (a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
        end;

    (1):begin
        case a of
        (a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));
        (a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
        (a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
        end;
    (2):begin
        case a of
        (a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));
        (a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
        (a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
    end;
    end;
    end;
    end;
    end;

[[oscarac]]

te muestra algun tipo de error?
cual es?

ah y que pasa si a es igual a 8 o 9 o menos de 15?

[Casimiro Notevi]

Pues dinos el error que sale, se nos ha averiado la bola de cristal USB

[juaarias]

jjaja perdonen,jajajaj,lo de si es otro valor no hay drama se lo controlares el error que me sales;

E2026 Constant expression expected

[Casimiro Notevi]

No dices en qué linea, pero juraría que es por los paréntesis que has puesto en los case:
(0):
(1):
etc.

Quita esos paréntesis.

[juaarias]

Código Delphi [-]
case cmbCantidad.ItemIndex  of
    (0):begin
        case a of
        (a<7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750); //me señala desde aca paa abajo
        (a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
        (a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
        end;

    (1):begin
        case a of
        (a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));
        (a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
        (a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
        end;
    (2):begin
        case a of
        (a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));
        (a=7):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*4900);
        (a=15):frmFactura.stgFactura.Cells[2,0]:= inttostr(a*8000);
    end;
    end;
    end;
    end;
    end;

[Casimiro Notevi]

También es porque en los case anidados no has puesto constantes en los valores:

Código Delphi [-]
(a<7)frmFactura.stgFactura.Cells[2,0]:= inttostr(a*750));

Eso no vale, debes poner valores constantes. También te faltarían los dos puntos ':'

[juaarias]

valores constantes???

[juaarias]

me especificas un poquito que no me doy cuenta?

[Casimiro Notevi]

Resumiendo, no puedes poner como condición del case (a<7), tienes que poner 1, 2, 3, etc.
Además has puesto case dentro de case, sin su end, aunque esa parte no sé si lo has hecho así realmente o es una equivocación, porque veo que los cierras al final, los end.

[juaarias]

graciasssss por dios que tonto soy, para saber si es menor que 7, debo utilizar 1..6,muchas gracias por su tiempo espero poder algun dia ayudar como uds hacen conmigo genios¡¡¡¡