Problemas con Format()

[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.