如何在delphi中保留小数点后两位？

#9

Format()

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

#9

f

FormatFloat(\'#.##\', f)

f

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;

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

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;

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;