hi, just a quick question
can somebody please tell me how to restrict the output of the code below to 2 decimal places.
VolumeCalc.Caption := FloatToStr(StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text));thx for the help.
revski
0
Light Poster
Recommended Answers
Jump to PostUse the Format command like this:
VolumeCalc.Caption := Format('%.2f',[StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text)]);Sub Xero
Jump to PostIt should be exactly the same. Format returns a string, so there's no difference in applying the result to an Editbox or a label.
What exactly is the problem?Sub Xero
All 5 Replies
Sub Xero
0
Newbie Poster
Use the Format command like this:
VolumeCalc.Caption := Format('%.2f',[StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text)]);Sub Xero
revski
0
Light Poster
thx for the help works great!
revski
0
Light Poster
i have just changed my Label to a EditBox.. and the above code doesnt seem to work at all, just wondering how to limit an edit box to 2 decimal places.
VolumeCalc.Text := FloatToStr(StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text));
Sub Xero
0
Newbie Poster
It should be exactly the same. Format returns a string, so there's no difference in applying the result to an Editbox or a label.
What exactly is the problem?
Sub Xero
revski
0
Light Poster
dont matter, had a bit too much to drink last night :/
format is working fine, sorry about wasting your time asking again.
thx for the help
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.