Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Mathematics

⤷ Round float number with limit

This example shows, how to round float number, if you want to get result with specified number of numerals after delimiter.

procedure TForm1.Button1Click(Sender: TObject);
var
  Num, Pow: Real;
  Count: Integer;
begin
  Num:=StrToFloat(Edit1.Text);
  Count:=StrToInt(Edit2.Text);
  Pow:=Power(10,Count);
  Num:=Num*Pow;
  Label3.Caption:=FloatToStr(Round(Num)/Pow);
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes