Runden ohne nachfolgende Nullen

[kwhk]

Zitat von mkinzler:

Ich möchte Fließkommazahlen auf z.B. 3-nachkommastellen runden, und als String formatieren.

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

Delphi-Quellcode:

const
  cFloats : array[0..6] of double = (1.2347,
                                     2.4043,
                                     2.001,
                                     1.0002,
                                     1.100123,
                                     1.4036,
                                     2.330456);
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   i : integer;
begin
   log.Lines.Clear;
   for I := 0 to 6 do
   begin
     log.Lines.Append(format('%1.3f',[cFloats[i]])+' = '+floatToStr(cFloats[i]));
   end;
end;

Code:

1,235 = 1,2347
2,404 = 2,4043
2,001 = 2,001
1,000 = 1,0002
1,100 = 1,100123
1,404 = 1,4036
2,330 = 2,330456