Problemas con Format()

[RoyTan]

Saludos.

Después de una larga temporada intentando descubrir el motivo por el cual doy formato a un número Real y sin embargo no logro formatear un entero.

Pues haber si alguna alma caritativa me ayuda, pues sencillamente yo… no soy capaz. Incluso he revisado la ayuda de Delphi, pero para nada, pues yo desafortunadamente de ingles 0 patatero.

Y ni siquiera he encontrado nada que me valga en los foros, y si hay algo, espero me disculpen dada mi gran torpeza no lo he visto.

Ejemplo:

Con este código no tengo problemas, la variable Total es del tipo Real. Y Para que funcione la tengo que convertir antes a String asignándola a la variable STotal de tipo String. Y el resultado del formateo es por ejemplo 1.000.000,00

STotal := FloatToStr(Total);
StaticText1.Caption := Format('%n', [StrToFloat(STotal)]) + ' €';

Y sin embargo con este código sí tengo problemas, la variable Contador es de tipo Integer y SContador de tipo String. Y con este debería ser por ejemplo 1.000.000 pero no, y no se porqué.

SContador := IntToStr(Contador);
StaticText2.Caption := Format('%d', [StrToInt(Contador)]) + ' Registros';


Alguien amable y de buen corazón me lo podría aclarar, si es que me he explicado bien.

Gracias.

[horaciomoscoso]

el format se usa para mostrar una variable en un formato diferente es decir inttostr(entero) es igual a format("%s"[entero]) nos muestra un entero en formato de cadena para mostrarlo en un edit label lo que sea ahora en tu ejemplo en StaticText2.Caption := Format('%d', [StrToInt(Contador)]) + ' Registros'; si te fijas bien en [strtoint(contador)] la variable contador de que tipo es por lo que veo es entero verdad entonces estas haciendo strtoint(entero) cuando lo correcto seria inttostr(entero) ademas cuando usas format ya no hace falta hacer estas conversiones por que para eso es el format proba asi StaticText2.Caption := Format('%d', [Contador]) + ' Registros'; o tB StaticText2.Caption := Format('%s', [Contador]) + ' Registros'; ya que para mostrar debe ser una cadena entonces convertimos el entero a formato de cadena ojo el STRTOINT(cadena) para convertir cadena en entero

[RoyTan]

Ok me explico, Horacio Moscoso.

La variable Total es de tipo Real.

Y de esta forma no tengo problemas, el formateo es correcto
Con este código,

StaticText1.Caption := Format('%n', [Total]) + ' €';

El resultado del formateo es este Ejemplo 1.000.000,00


Hasta aquí todo bien,

Pero sin embargo la variable Contador en de tipo entero y si utilizo este código

StaticText2.Caption := Format('%d', [Contador]) + ' Registros';

No lo formatea, sale así, 1000000
Y debería salir así, 1.000.000

Porqué no lo entiendo, no sé que estoy haciendo mal.

Gracias.

[keyboy]

Empezado por RoyTan

no sé que estoy haciendo mal.

No estás haciendo nada mal; es sólo que esperas un resultado distinto el que la función Format te da. Si lees la documentación, verás que los separadores de millares sólo se ponen para el especificador %n, no menciona nada al respecto para el especificador %d.

No puedes usar directamente %n para un entero, pero si puedes convertir ese entero a flotante:

Código Delphi [-]
StaticText2.Caption := Format('%n', [Contador + 0.0]) + ' Registros';

El compilador de delphi, al ver el sumando 0.0, convierte automáticamente el otro sumando en un real. Con esto obtienes los separadores que quieres. Sin embargo, el resultado no es óptimo porque aparecen dos ceros decimales:

1.000.000,00

lo que se ve extraño si se habla de número de registros. Pero puedes suprimirlos así:

Código Delphi [-]
StaticText2.Caption := Format('%.0n', [Contador + 0.0]) + ' Registros';

El número entre el punto y n indica el número de decimales que quieres mostrar (en este caso, cero, es decir, ninguno).

Otra opción es usar FormatFloat:

Código Delphi [-]
StaticText2.Caption := FormatFloat('0,', [Contador]) + ' Registros';

Por otro lado, si ya estás usando una función como Format, veo más natural usar la terminación 'Registros' en la misma cadena de formato.

Código Delphi [-]
StaticText2.Caption := Format('%.0n Registros', [Contador + 0.0]);

o bien

Código Delphi [-]
StaticText2.Caption := FormatFloat('0, Registros', [Contador]);

Bye

[[egostar]]

Algo rápido,

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Contador: integer;
begin
  Contador := 1000000;
  ShowMessage(Format('Contador = : %15.0n',[Contador*1.0]));
end;

Aunque podrías darle una leída a la funcion FormatMaskText() tal vez encuentres algo que te ayude.

Salud OS

Edito: Bueno el amigo keyboy ya te ha dado un explicación sin desperdicio.

[keyboy]

Je, je, tú multiplicas por 1 y yo sumo 0; dos formas de no alterar nada pero sí cambiar

Bye

[[egostar]]

Empezado por keyboy

Je, je, tú multiplicas por 1 y yo sumo 0; dos formas de no alterar nada pero sí cambiar

Bye

Lo bueno es que es quitando decimales, si no tal vez podriamos encontrarnos algunas sorpresitas

Salud OS

[RoyTan]

Perfecto.

Sencillamente magnifico.

Gracias a todos.

Un saludo.