Formateo de un flotador a ### ## (dos decimales)

Question

Tener:..

var 
Difference: DWORD // difference shows in milliseconds 
// List.Items.Count can be any 0 to ######## 
[...] 
sb.panels[2].Text := FloatToStr((((List.Items.Count)/difference)/1000)); 

quiero formatear el texto resultante a cualquier ### ## (dos decimales). Usar FloatToStrF no es exitoso (parece que no funciona con DWORD).

Gracias

Answer 1

preguntando si esto es un problema con las matemáticas en lugar de formato. ¿Por qué estás dividiendo el número de elementos por 1000? ¿Quiere dividir milisegundos (su variable Diferencia) por 1000? Tal vez esto es lo que quiere:

EventRate := (List.Items.Count)/(difference/1000); // events per second; to make it per minute, need to change 1000 to 60000 

Por supuesto, igual querrá formatear el resultado. Lo necesitará como una propiedad variable o de clase:

MyFormatSettings: tformatsettings; 

luego, tendrá que hacer esto una vez, p. en FormShow:

getlocaleformatsettings(locale_system_default, MyFormatSettings); 

finalmente, esto debería funcionar:

sb.panels[2].Text := format('%5.2f', EventRate, MyFormatSettings); 

Answer 2

¿Por qué no utilizar la función de formato con format strings? Ejemplo:

sb.panels[2].Text := Format('%8.2f',[123.456]); 

Otras funciones serían

function FormatFloat(const Format: string; Value: Extended): string; overload; 
function FormatFloat(const Format: string; Value: Extended; const FormatSettings: TFormatSettings): string; overload;