formattazione di un galleggiante a ### ## (due decimali)

Question

Avere:..

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)); 

voglio formattare il testo risultante a qualsiasi ### ## (due decimali). L'utilizzo di FloatToStrF non ha esito positivo (non sembra funzionare con DWORD).

Grazie

Answer 1

chiedo solo se questo è un problema con la matematica piuttosto che la formattazione. Perché stai dividendo il numero di articoli per 1000? Intendi dividere i millisecondi (la tua differenza Differenza) per 1000? Forse questo è quello che vuoi:

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

Naturalmente, vorrai comunque formattare il risultato. Avrete bisogno di questo come una proprietà variabile o classe:

MyFormatSettings: tformatsettings; 

poi, avrete bisogno di farlo una volta, ad esempio, in FormShow:

getlocaleformatsettings(locale_system_default, MyFormatSettings); 

infine, questo dovrebbe funzionare:

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

Answer 2

Perché non si utilizza la funzione di formattazione con format strings? Esempio:

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

Funzioni sarebbero

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