Cita:
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:
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