Pascal and Delphi

Pascal and Delphi RSS

restricting decimal places on floating point values

Thread Solved

•

Join Date: Jul 2009

Posts: 17

Reputation: revski is an unknown quantity at this point

Solved Threads: 0

revski

Offline

Newbie Poster

restricting decimal places on floating point values

Jul 5th, 2009

hi, just a quick question

can somebody please tell me how to restrict the output of the code below to 2 decimal places.

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
VolumeCalc.Caption := FloatToStr(StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text));
VolumeCalc.Caption := FloatToStr(StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text));

thx for the help.

•

Join Date: Jul 2009

Posts: 7

Reputation: Sub Xero is an unknown quantity at this point

Solved Threads: 2

Sub Xero

Offline

Newbie Poster

Re: restricting decimal places on floating point values

Jul 5th, 2009

Use the Format command like this:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
VolumeCalc.Caption := Format('%.2f',[StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text)]);
VolumeCalc.Caption := Format('%.2f',[StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text)]);

Sub Xero

Last edited by Sub Xero; Jul 5th, 2009 at 4:27 pm.

•

Join Date: Jul 2009

Posts: 17

Reputation: revski is an unknown quantity at this point

Solved Threads: 0

revski

Offline

Newbie Poster

Re: restricting decimal places on floating point values

Jul 5th, 2009

thx for the help works great!

•

Join Date: Jul 2009

Posts: 17

Reputation: revski is an unknown quantity at this point

Solved Threads: 0

revski

Offline

Newbie Poster

Re: restricting decimal places on floating point values

Jul 5th, 2009

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.

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
VolumeCalc.Text := FloatToStr(StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text));
VolumeCalc.Text := FloatToStr(StrToFloat(EngineSizeVal.Text) / 2 / StrToFloat(CylNumVal.Text));

•

Join Date: Jul 2009

Posts: 7

Reputation: Sub Xero is an unknown quantity at this point

Solved Threads: 2

Sub Xero

Offline

Newbie Poster

Re: restricting decimal places on floating point values

Jul 5th, 2009

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