ayuda con case

[juaarias]

gente necesito ayuda lo mas veloz posible disculpen la molestias, quisiera ver que es lo que estoy haciendo mal este mi codifo en un case:

case frmInicio.rdgCategoria.itemIndex of
    (0):  (if DiasPactados<7 then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*142);
            end
            else begin
            if (DiasPactados>=7)and(DiasPactados<15) then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*133);
            end
            else begin
            if (DiasPactados>=15)and(DiasPactados<=31)then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*121);
            end
            else begin
            if (DiasPactados>31)then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*99);
            end);///por aqui me queda el cursor marcando algo que no se que es                   creo que me dice algo como esperando parentesis pero no lo comprendo//
    (1):  (frmFactura.lblCategoria.Caption:='B');
    (2):  (frmFactura.lblCategoria.Caption:='C');
    (3):  (frmFactura.lblCategoria.Caption:='D');
    (4):  (frmFactura.lblCategoria.Caption:='E');
    (5):  (frmFactura.lblCategoria.Caption:='F');
    (6):  (frmFactura.lblCategoria.Caption:='G');
    (7):  (frmFactura.lblCategoria.Caption:='H');
    (8):  (frmFactura.lblCategoria.Caption:='I');
    end;

[[oscarac]]

te sale algun mensaje?
que es lo que pretendes hacer?

[beginner01]

Empezado por juaarias

gente necesito ayuda lo mas veloz posible disculpen la molestias, quisiera ver que es lo que estoy haciendo mal este mi codifo en un case:

case frmInicio.rdgCategoria.itemIndex of
    (0):  (if DiasPactados<7 then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*142);
            end
            else begin
            if (DiasPactados>=7)and(DiasPactados<15) then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*133);
            end
            else begin
            if (DiasPactados>=15)and(DiasPactados<=31)then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*121);
            end
            else begin
            if (DiasPactados>31)then begin
            frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*99);
            end);///por aqui me queda el cursor marcando algo que no se que es                   creo que me dice algo como esperando parentesis pero no lo comprendo//
    (1):  (frmFactura.lblCategoria.Caption:='B');
    (2):  (frmFactura.lblCategoria.Caption:='C');
    (3):  (frmFactura.lblCategoria.Caption:='D');
    (4):  (frmFactura.lblCategoria.Caption:='E');
    (5):  (frmFactura.lblCategoria.Caption:='F');
    (6):  (frmFactura.lblCategoria.Caption:='G');
    (7):  (frmFactura.lblCategoria.Caption:='H');
    (8):  (frmFactura.lblCategoria.Caption:='I');
    end;

pruebalo asi

Código Delphi [-]

case frmInicio.rdgCategoria.itemIndex of
   0: begin
        if DiasPactados<7 then
        begin
           frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*142);
        end else begin
          if (DiasPactados>=7)and(DiasPactados<15) then
          begin
          frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*133);
          end
          else
          begin
            if (DiasPactados>=15)and(DiasPactados<=31)then
            begin
             frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*121);
            end
            else
            begin
             if (DiasPactados>31)then
             begin
              frmFactura.lblAlqPac.caption:=inttostr(DiasPactados*99);
             end;
            end;
          end;
        end;
      end;
     
     1:  (frmFactura.lblCategoria.Caption:='B');
     2:  (frmFactura.lblCategoria.Caption:='C');
     3:  (frmFactura.lblCategoria.Caption:='D');
     4:  (frmFactura.lblCategoria.Caption:='E');
     5:  (frmFactura.lblCategoria.Caption:='F');
     6:  (frmFactura.lblCategoria.Caption:='G');
     7:  (frmFactura.lblCategoria.Caption:='H');
     8:  (frmFactura.lblCategoria.Caption:='I');
end;

aqui te dejo un enlace donde explican el case
en delphi