Club Builder

[Juan M Castillo]

Hola,

Llevo ya unas horas intentanto hacer una cosa, en resumen:

Quiero visualizar un numero de la forma:
0000001
0000002
.....
9999999

Con este formato, y no:
1
2
3
..
9999

Pero no me sale, he intentato hacer una conversion IntToHex, pero cuando voy a hacer el cambio de Hexadecimal Decimal, tengo algunos problemas, porque se me generar algunos errores y no se porque, hago lo siguiente:

int Numero; // tengo el numero
AnsiString Paspas = IntToStr (Numero, 7); //Conversion al cristianismo
int Valor;
for (int n=7, n>0, n--)
{
if (Paspas[n] == "A")
{
Paspas[n]= "0";
Valor = IntToStr (Paspas[n-1]);
Valor++;
Paspas[n-1]=IntToStr(Valor);
}
}

Bueno, esto basicamente, aunque hay alguna modificacion... pero NO ME SALE, y enseguida pierdo la paciencia y me echo al alcohol...

A ver si alguien me lo dice, que seguto que es una tonteria, pero mientras este arbol, continuara la sombra...

Muchas gracias de antemano y un saludo,

Juan

[Angel M. Aranguren]

Hola Juan,

Si lo que quieres es visualizar los números con 0 por la izquierda yo hago + o - lo siguiente:

Label1->Caption = Right (AnsiString::StringOfChar ('0', 7) + IntToStr (Numero), 7);

Teniendo en cuenta que la función Right es:

/*****************************************************************************
Right
******************************************************************************

Devuelve los x caracteres de la derecha de una cadena.

Parámetros:
AnsiString Cadena: La cadena de la que hay que extraer la subcadena.
int Longitud: El nº de caracteres de la subcadena.

Retorna:
Un AnsiString que contiene los x caracteres empezando por la derecha de una
cadena.

***********************************************************************
***********************************************************************/
AnsiString __fastcall Right (AnsiString Cadena, int Longitud)
{
int Comienzo;

Comienzo = Cadena.Length () - Longitud + 1;
if (Comienzo < 1)
{
Comienzo = 1;
Longitud = Cadena.Length ();
}
return Cadena.SubString (Comienzo, Longitud);
}

Ya me dirás si esto te vale.

Un saludo,

Angel M. Aranguren

[Juan M Castillo]

Hola Angel,

Una vez mas gracias... Dios te lo pague.

Un saludo,

Juan.