格式化浮子###。##（保留兩位小數）

Question

有：。

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

我想結果文本任何格式化### ##（保留兩位小數）。使用FloatToStrF是沒有成功的（似乎不適用於DWORD）。

感謝

Answer 1

只是想知道，如果這是數學，而不是格式化的問題。你爲什麼把項目數量除以1000？你的意思是將毫秒（你的差異變量）除以1000？也許這是你想要的：

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

當然，你仍然想要格式化結果。你需要這個作爲一個變量或類屬性：

MyFormatSettings: tformatsettings; 

然後，你需要做一次，例如在FormShow：

getlocaleformatsettings(locale_system_default, MyFormatSettings); 

最後，這應該工作：

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

Answer 2

你爲什麼不使用與format strings格式的功能？例如：

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

其他功能將

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