Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-08-2011
Avatar de lmpadron
lmpadron lmpadron is offline
Miembro
 
Registrado: feb 2009
Ubicación: Habana, Cuba
Posts: 204
Poder: 16
lmpadron Va por buen camino
Digitos en un INT

Hola amigos

tengo que realizar una pequeña validacion en un int de 11 digitos, el codigo que uso es el siguiente

Código:
        int a,b,c;
        a = StrToInt(DBEdit11->Text);
        c = 1;

        for (int i = 0; i <= 12; i++)
        {
                b = a / c;
                c = c * 10;

                if (i == 11){}
                else
                {
                        if (b == 0 && i < 11)
                        {
                                ShowMessage("Al numero insertado le faltan digitos " + IntToStr(b));
                                Abort();
                        }
                        if (i >= 11 && b != 0)
                        {
                                ShowMessage("Al numero insertado le sobran digitos " + IntToStr(b));
                                Abort();
                        }
                }
        }
Al correr me devuelve un error diciendo que el numero no es un valor int valido. Me corre bien hasta 10 digitos o sea 1234567891 pero en cuento le pongo el digito numero 11 o sea 12345678912 ahi me da el siguiente error

Código:
---------------------------
Debugger Exception Notification
---------------------------
Project PROJECT.exe raised exception class EConvertError with message ''12345678912' is not a valid integer value'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
Alguna idea de como solucionarlo ???

Gracias de antemano
__________________
Nunca esta de más volver a ver la "Guia de Estilo" o "La Otra Guia de Estilo". Recuerda siempre usar los "Tags" para una mejor legibilidad de tu código.


Cuando miras fijamente al abismo, este te devuelve la mirada


oo______ooo_____ooo_ooooooo_____ooo____oooooo____ooooooo______oooo____ooo____oo_
oo______oooo___oooo_oo____oo__oo___oo__oo____oo__oo____oo___oo____oo__oooo___oo_
oo______oo_oo_oo_oo_oo____oo_oo_____oo_oo_____oo_oo____oo__oo______oo_oo_oo__oo_
oo______oo__ooo__oo_oooooo___ooooooooo_oo_____oo_ooooooo___oo______oo_oo__oo_oo_
oo______oo_______oo_oo_______oo_____oo_oo____oo__oo____oo___oo____oo__oo___oooo_
ooooooo_oo_______oo_oo_______oo_____oo_oooooo____oo_____oo____oooo____oo____ooo_
________________________________________________________________________________

Última edición por lmpadron fecha: 15-08-2011 a las 15:00:39.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
intercalar digitos luisito2011 Varios 6 04-12-2012 18:38:57
Promedio.. digitos primos .. luisito2011 Varios 3 07-05-2011 02:54:02
Extract month con dos digitos Cañones Firebird e Interbase 2 17-08-2010 21:10:10
Incremento de los digitos de un numero lily21 Varios 8 10-02-2010 16:54:29
Ingresar un núm de 10 digitos... coronado Varios 1 12-10-2006 13:49:18


La franja horaria es GMT +2. Ahora son las 03:11:37.


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