Runden ohne nachfolgende Nullen

[Andidreas]

Zitat von Uwe Raabe:

Zitat von kwhk:

FloatToString beseitig zwar alle Vornullen und Nachkommanullen, es fehlt aber das Runden auf drei Nachkommastellen.

Dann vielleicht so?

Delphi-Quellcode:

program Project213;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Math;

const
  cFloats: array [0..6] of double = (1.2347, 2.4043, 2.001, 1.0002, 1.100123, 1.4036, 2.330456);

var
  d: double;

begin
  for d in cFloats do begin
    Writeln(format('%1.3f = %s', [d, FloatToStr(RoundTo(d, -3))]));
  end;
  Readln;
end.

Wenn er das "Bankers Rounding" verwenden möchte, dann so...
Ansonsten sei auch noch der Hinweis auf die Funktion von shmia erlaubt --> http://www.delphipraxis.net/50081-ka...ch-runden.html