FormatFileSize

[Uwe Raabe]

Ich meine sowas:

Delphi-Quellcode:

var
  _size: Extended;
  orgMode: TRoundingMode;
begin
  _size := 1.0957031;
  orgMode := SetRoundMode(rmDown);
  try
    Assert(FormatFloat('0.##', _size, TFormatSettings.Invariant) = '1.09', 'Abrunden klappt nicht!');
  finally
    SetRoundMode(orgMode);
  end;
end;

Basierend auf dieser Aussage:

Zitat von MicMic:

da ich nicht weis wie ich mit Format/FormatFloat abrunden kann.

und dieser:

Zitat von KodeZwerg:

Na da kann Dir geholfen werden, mitSetRoundMode() ist so ein Verhalten steuerbar.