How to keep 2 decimal places in Delphi?

Question

I have selected columns from a database table and want this data with two decimal places only. I have:

SQL.Strings = ('select '#9'my_index '#9'his_index,'...

What is that #9?
How can I deal with the data I selected to make it only keep two decimal places?

I am very new to Delphi.

What data type is in the database? What field type you've got in Delphi? Do you need your data as a string or do you need it as a numeric type rounded to only hold 2 decimal places? — Cosmin Prund, Apr 13 '11 at 13:34

David Heffernan · Accepted Answer · 2011-04-13T14:41:18.107

21

#9 is the character with code 9, TAB.

If you want to convert a floating point value to a string with 2 decimal places you use one of the formatting functions, e.g. Format():

var
  d: Double;
  s: string;
...
d := Sqrt(2.0);
s := Format('%.2f', [d]);

edited Apr 13 '11 at 14:41

answered Apr 13 '11 at 13:32

David Heffernan

601,492
42
1,072
1,490

score 7 · Answer 2 · edited Aug 28 '21 at 14:03

7

function Round2(aValue:double):double;    
begin    
  Round2:=Round(aValue*100)/100;    
end;

edited Aug 28 '21 at 14:03

Ingo

5,239
1
30
24

answered Dec 19 '18 at 22:03

RTS

71
1
2

This is not _keeping_ two decimal digits, it _changes_ them: `0.0999` does not become `0.09` but instead `0.10`. – AmigoJack Jan 09 '23 at 09:17
What you are talking about is not rounding but truncation to 2 decimal places – RTS Jan 10 '23 at 10:09
Exactly. Where do you got the idea from that OP/the question wants rounding? Because the accepted answer also rounds? OP may neither be aware of that. – AmigoJack Jan 10 '23 at 11:54
ok, my fault :) – RTS Jan 11 '23 at 12:27

score 4 · Answer 3 · answered Apr 13 '11 at 13:32

4

#9 is the tab character.

If f is a floating-point variable, you can do FormatFloat('#.##', f) to obtain a string representation of f with no more than 2 decimals.

answered Apr 13 '11 at 13:32

Andreas Rejbrand

105,602
8
282
384

Oh...you compete against each other! Thanks for both of you! – spspli May 10 '11 at 15:27

score 1 · Answer 4 · answered Aug 28 '21 at 14:10

1

For N Places behind the seperator use

function round_n(f:double; n:nativeint):double;
var i,m : nativeint;
begin
  m := 10;
  for i := 1 to pred(n) do
    m := m * 10;

  f := f * m;
  f := round(f);
  result := f / m;      
end;

answered Aug 28 '21 at 14:10

Ingo

5,239
1
30
24

Works only when `n` is `1` or higher, not for _zero_ decimal digits. – AmigoJack Jan 09 '23 at 09:24

score 1 · Answer 5 · answered Sep 05 '21 at 08:35

For Float to Float (with 2 decimal places, say) rounding check this from documentation. Gives sufficient examples too. It uses banker's rounding.

x := RoundTo(1.235, -2); //gives 1.24

Note that there is a difference between simply truncating to two decimal places (like in Format()), rounding to integer, and rounding to float.

score 1 · Answer 6 · answered Oct 28 '21 at 21:57

Nowadays the SysUtils unit contains the solution:

System.SysUtils.FloatToStrF( singleValue, 7, ffFixed, 2 );
System.SysUtils.FloatToStrF( doubleValue, 15, ffFixed, 2 );

You can pass +1 TFormatSettings parameter if the requiered decimal/thousand separator differ from the current system locale settings.

score 0 · Answer 7 · answered Mar 14 '16 at 12:05

The internal float format routines only work with simple numbers > 1

You need to do something more complicated for a general purpose decimal place limiter that works correctly on both fixed point and values < 1 with scientific notation.

I use this routine

function TForm1.Flt2str(Avalue:double; ADigits:integer):string;
var v:double; p:integer; e:string;
begin
  if abs(Avalue)<1 then
  begin
    result:=floatTostr(Avalue);
    p:=pos('E',result);
    if p>0 then
    begin
      e:=copy(result,p,length(result));
      setlength(result,p-1);
      v:=RoundTo(StrToFloat(result),-Adigits);
      result:=FloatToStr(v)+e;
    end else
      result:=FloatToStr(RoundTo(Avalue,-Adigits));
  end
  else
    result:=FloatToStr(RoundTo(Avalue,-Adigits));
end;

So, with digits=2, 1.2349 rounds to 1.23 and 1.2349E-17 rounds to 1.23E-17

amytrajghimire · Answer 8 · 2019-06-12T09:25:56.730

This worked for me :

Function RoundingUserDefineDecaimalPart(FloatNum: Double; NoOfDecPart: integer): Double;
Var
     ls_FloatNumber: String;
Begin
     ls_FloatNumber := FloatToStr(FloatNum);
     IF Pos('.', ls_FloatNumber) > 0 Then
          Result := StrToFloat
            (copy(ls_FloatNumber, 1, Pos('.', ls_FloatNumber) - 1) + '.' + copy
                 (ls_FloatNumber, Pos('.', ls_FloatNumber) + 1, NoOfDecPart))
     Else
          Result := FloatNum;
End;

score 0 · Answer 9 · answered Jul 19 '19 at 05:35

Function RealFormat(FloatNum: Double): string;
Var
     ls_FloatNumber: String;
Begin
     ls_FloatNumber:=StringReplace(FloatToStr(FloatNum),',','.',[rfReplaceAll]);
     IF Pos('.', ls_FloatNumber) > 0 Then
          Result :=
            (copy(ls_FloatNumber, 1, Pos('.', ls_FloatNumber) - 1) + '.' + copy
                 (ls_FloatNumber, Pos('.', ls_FloatNumber) + 1, 2))
     Else
          Result := FloatToStr(FloatNum);
End;

How to keep 2 decimal places in Delphi?

9 Answers9