Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ayuda con case (https://www.clubdelphi.com/foros/showthread.php?t=73929)

juaarias 25-05-2011 03:46:09
ayuda con case
 
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:
Código:
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 25-05-2011 04:15:40
te sale algun mensaje?
que es lo que pretendes hacer?

beginner01 25-05-2011 05:41:09
Cita:
Empezado por juaarias (Mensaje 401229)
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:
Código:
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


La franja horaria es GMT +2. Ahora son las 22:24:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi