Mega Code Archive

 

Categories / Delphi / Examples

 

Round float number with limit

Title: 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;