### करने के लिए एक नाव का प्रारूपण ## (दो दशमलव)

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;