FormatFileSize

[Schokohase]

Da dieses Thema ja stark von der Oberlehrerfraktion besetzt ist:

Wenn man einen Wert rundet, dann werden nach Selbigem niemals die Nachkommastellen entfernt.

Code:

232,0034383 auf 2 Nachkommastellen gerundet: 232,00

Du kannst dir also diesen Zirkus sparen.

[MicMic]

Zitat von Schokohase:

Da dieses Thema ja stark von der Oberlehrerfraktion besetzt ist:

Wenn man einen Wert rundet, dann werden nach Selbigem niemals die Nachkommastellen entfernt.

Code:

232,0034383 auf 2 Nachkommastellen gerundet: 232,00

Du kannst dir also diesen Zirkus sparen.

Das Thema (bei mir *g) ist ja, da ich nicht weis wie ich mit Format/FormatFloat abrunden kann. Da wird ja aufgerundet und wie ich das jetzt verstanden habe, soll man bei einer Anzeige von Dateigrößen nicht aufrunden. Windows rundet ab, bei dem einem Beispielwert (weiter oben) 1,09. Format/FormatFloat macht 1,1 und der bekannte TotalCommander macht ne "1" (mit der Bezeichnung "M") raus. Ich mach den Zirkus ja nicht Wir alle

Michael

[KodeZwerg]

Zitat von MicMic:

da ich nicht weis wie ich abrunden kann

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

[Uwe Raabe]

Zitat von KodeZwerg:

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

Kannst du mal den Code zeigen, mit dem das funktioniert?

Ich würde das explizit ausprogrammieren:

Delphi-Quellcode:

  
  if <mit Punkt> then begin
    // sprachinvariant, immer mit Punkt
    fs := TFormatSettings.Invariant;
  end
  else begin
    // mit Komma oder was im Windows halt gerade eingestellt ist
    fs := FormatSettings;
  end;
  result := Format('%s %s', [FormatFloat('0.##', Floor(100*_size)/100, fs), s]);

[KodeZwerg]

Zitat von Uwe Raabe:

Kannst du mal den Code zeigen, mit dem das funktioniert?

Ausführlicher Beispiel Code ist doch im Link? Vielleicht habe ich das was gefordert ist auch falsch Verstanden, wobei es bei auf/ab-runden nicht viel falsch zu verstehen gibt. Du meinst bestimmt seinen Code, ich meinte generell auf/abrunden.

[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.

[KodeZwerg]

Da ich mich gleich an Strand klatsche hab ich keine Zeit mehr, aber mein Vorschlag beinhaltet Beispiel Code, wenn man nichts rundet, rundet man nichts. Also wo kommt Round() vor?

Falls ich darauf noch Lust haben sollte, schreibe ich was mit Delphi basierend aus dem Informationen vom Link und nicht basierend auf irgendwas was nicht Round() enthält. Man kann Round() auch in Format() reinbringen...

[MicMic]

Zitat von Uwe Raabe:

Zitat von KodeZwerg:

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

Kannst du mal den Code zeigen, mit dem das funktioniert?

Ich würde das explizit ausprogrammieren:

Delphi-Quellcode:

  
  if <mit Punkt> then begin
    // sprachinvariant, immer mit Punkt
    fs := TFormatSettings.Invariant;
  end
  else begin
    // mit Komma oder was im Windows halt gerade eingestellt ist
    fs := FormatSettings;
  end;
  result := Format('%s %s', [FormatFloat('0.##', Floor(100*_size)/100, fs), s]);

Jo, ist natürlich besser als mein Pos/Copy Zeugs Ich kenne natürlich Floor, wusste aber nicht wie ich es dort in der Zeile einsetze. Das nehme ich jetzt. Danke
Aber wegen diesen FormatSettings…

Wenn ich immer:

Code:

fs := TFormatSettings.Create;
fs.DecimalSeparator := ','; // oder '.' oder '/' (wie ich halt will)

nehme, bin ich auf der sicheren Seite mit meinem Komma oder Punkt. Oder?

Michael