uso de case

[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.

[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]

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;