FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
is not a valid integer value
is not a valid integer value ESTE ERROR ME LO DA CUANDO YO PONGO SOLO UN NUMERO EN UN EDIT Y CIERRO EL SHOWMESSAGE QUE COMO INDICO EN CL CODIGO QUE ME LO MUESTRE SI ALGUN EDIT ESTA VACIO Y CUANDO LO CIERRO ME MUESTRA ESE ERROR, QUE PODRIA SER , ESTE PROGRMAA ES UN BOLETIN DE NOTA QUE CALCULA PROMEDIO TIENE BARRA PROGRESIVA
procedure TForm1.Button2Click(Sender: TObject); var psuma, ssuma,tsuma,pmedia,smedia,tmedia,media1,media2,media3,media4,media5,media6,pp4,pp5,pp6,num1,num2,num 3,num4,num5,num6,num7 ,num8,num9,num10,num11,num12,num13,num14,num15: integer; begin if(edit1.Text='') or (edit2.Text ='') or (edit3.Text='') or (edit4.Text ='') or (edit5.Text ='') or (edit6.Text ='') or (edit7.Text ='') or (edit8.Text ='') or (edit9.Text ='') or (edit10.Text='') or (edit11.Text ='') or (edit12.Text='') or (edit13.Text='') or (edit14.Text ='') or (edit15.Text ='') then showmessage ('Los datos no están completos o son incorrectos') else begin num1 :=strtoint (edit1.Text); num2 :=strtoint (edit2.Text); num3 :=strtoint (edit3.Text); num4 :=strtoint (edit4.Text); num5 :=strtoint (edit5.Text); num6 :=strtoint (edit6.Text); num7 :=strtoint (edit7.Text); num8 :=strtoint (edit8.Text); num9 :=strtoint (edit9.Text); num10 :=strtoint (edit10.Text); num11 :=strtoint (edit11.Text); num12 :=strtoint (edit12.Text); num13 :=strtoint (edit13.Text); num14 :=strtoint (edit14.Text); num15 :=strtoint (edit15.Text); {Suma1} psuma := num1 + num2 + num3 + num4 + num5; Panel1.Caption := inttostr(psuma); ssuma := num6 + num7 + num8 + num9 + num10; panel2.Caption := inttostr (ssuma); tsuma := num11 + num12 + num13 + num14 + num15; panel3.Caption := inttostr(tsuma); {Promedio 1} pmedia := (num1 + num2 + num3 + num4 + num5) div 5; panel4.Caption := inttostr(pmedia); smedia := (num6 + num7 + num8 + num9 + num10) div 5; panel5.Caption := inttostr(smedia); tmedia := (num11 + num12 + num13 + num14 + num15) div 5; panel6.Caption := inttostr(tmedia); {Promedio2} media1 := (num1 + num6 + num11)div 3 ; if media1 < 3 then panel7.Caption := 'Muy deficiente' else if( media1 <5) and (media1 >= 3) then panel7.Caption := 'Insuficiente' else if media1 = 5 then panel7.Caption := 'Suficiente' else if media1 = 6 then panel7.Caption := 'Bien' else if (media1 < 9) and (media1 >= 7) then Panel7.Caption := 'Notable' else if media1 > 8 then panel7.Caption := 'Sobresaliente' end; begin media2 := (num2 + num7 + num12)div 3 ; if media2 < 3 then panel8.Caption := 'Muy deficiente' else if( media2 <5) and (media2 >= 3) then panel8.Caption := 'Insuficiente' else if media2 = 5 then panel8.Caption := 'Suficiente' else if media2 = 6 then panel8.Caption := 'Bien' else if (media2 < 9) and (media2 >= 7) then Panel8.Caption := 'Notable' else if media2 > 8 then panel8.Caption := 'Sobresaliente' end; begin media3 := (num3 + num8 + num13)div 3 ; if media3 < 3 then panel9.Caption := 'Muy deficiente' else if( media3 <5) and (media3 >= 3) then panel9.Caption := 'Insuficiente' else if media3 = 5 then panel9.Caption := 'Suficiente' else if media3 = 6 then panel9.Caption := 'Bien' else if (media3 < 9) and (media3 >= 7) then Panel9.Caption := 'Notable' else if media3 > 8 then panel9.Caption := 'Sobresaliente' end; begin media4 := (num4 + num9 + num14)div 3 ; if media4 < 3 then panel10.Caption := 'Muy deficiente' else if( media4 <5) and (media4 >= 3) then panel10.Caption := 'Insuficiente' else if media4 = 5 then panel10.Caption := 'Suficiente' else if media4 = 6 then panel10.Caption := 'Bien' else if (media4 < 9) and (media4 >= 7) then Panel10.Caption := 'Notable' else if media4 > 8 then panel10.Caption := 'Sobresaliente' end; begin media5 := (num5 + num10 + num15)div 3 ; if media5 < 3 then panel11.Caption := 'Muy deficiente' else if( media5 <5) and (media5>= 3) then panel11.Caption := 'Insuficiente' else if media5 = 5 then panel11.Caption := 'Suficiente' else if media5 = 6 then panel11.Caption := 'Bien' else if (media5 < 9) and (media5 >= 7) then Panel11.Caption := 'Notable' else if media5 > 8 then panel11.Caption := 'Sobresaliente' end; begin pp4 := strtoint (panel4.Caption); pp5 := strtoint (panel5.Caption); pp6 := strtoint (panel6.Caption); media6 := (pp4 + pp5 + pp6)div 3 ; if media6< 3 then panel12.Caption := 'Muy deficiente' else if( media6 <5) and (media6 >= 3) then panel12.Caption := 'Insuficiente' else if media6 = 5 then panel12.Caption := 'Suficiente' else if media6 = 6 then panel12.Caption := 'Bien' else if (media6 < 9) and (media6 >= 7) then Panel12.Caption := 'Notable' else if media6 > 8 then panel12.Caption := 'Sobresaliente' end; {Barra de Pro} begin pb1.Position := media1 ; pb2.Position := media2 ; pb3.Position := media3 ; pb4.Position := media4 ; pb5.Position := media5 ; pb6.Position := media6 ; end; end; procedure TForm1.Button1Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; edit7.Clear; edit8.Clear; edit9.Clear; edit10.Clear; edit11.Clear; edit12.Clear; edit13.Clear; edit14.Clear; edit15.Clear; panel1.Caption := ''; panel2.Caption := ''; panel3.Caption := ''; panel4.Caption := ''; panel5.Caption := ''; panel6.Caption := ''; panel7.Caption := ''; panel8.Caption := ''; panel9.Caption := ''; panel10.Caption := ''; panel11.Caption := ''; panel12.Caption := ''; pb1.Position := 0; pb2.Position := 0; pb3.Position := 0; pb4.Position := 0; pb5.Position := 0; pb6.Position := 0; end; procedure TForm1.Button3Click(Sender: TObject); begin close; end; end. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error: Is not a valid integer value | darkmaster360 | Varios | 18 | 16-05-2013 23:12:00 |
Is not a valid integer value | joancmb | Varios | 9 | 19-03-2013 14:10:58 |
Error: metafile is not valid | SGL | Impresión | 0 | 10-06-2005 11:19:58 |
Error: " is not a valid integer value | MiLLeNPuNk | Varios | 2 | 20-02-2005 11:55:57 |
not valid floating | merlin | Conexión con bases de datos | 1 | 21-07-2004 13:18:53 |
|