Thema: Delphi Max. 3 Nachkommastellen

Einzelnen Beitrag anzeigen

Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#13

Re: Max. 3 Nachkommastellen

  Alt 15. Jun 2009, 12:41
HI,

also ich bevorzuge auch die Methode mit den Formatstrings.
Beispiel:
Delphi-Quellcode:
function Runden(Zahl: Extended; Nachkommastellen: Byte): string;
var
  NachStr: String;
begin
  Nachstr := IntToStr(Nachkommastellen);
  Result := Format('%1.' + Nachstr + 'f', [Zahl]);
end;
Bernhard
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat