FormatFileSize

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

Also SetRoundMode behalte ich mal im Hinterkopf. Danke für die Info.
Find jetzt die Zeile "result := Format('%s %s', [FormatFloat('0.##', Floor(100*_size)/100, fs), s]);" passt ganz gut.

KodeZwerg und Uwe Raabe... ich hoffe ihr streitet nicht rum

Aber Windows macht wirklich sein eigenes Ding. Abgesehen von der Bezeichnung der Dateigrößen...

308736 Bytes / 1024 = 301,5 (Windows gibt 301 aus) <- Datei System32\wusa.exe
14848 Bytes / 1024 = 14,5 (Windows gibt 14,5 aus) <- Datei System32\wshirda.dll

Mal mit ",5" mal ohne. (im Explorer Ansicht Modus "Liste" oder bei den Datei-Eigenschaften)
Im Modus "Details" (dort ist alles ohne Nachkommastellen) die wusa.exe mit 302 wobei in der Statusleiste dann gleichzeitig 301 steht

Ich gebe jetzt z.B. bei der wusa.exe 301,5 KiB aus.

Schon komisch

Michael

[Uwe Raabe]

Zitat von MicMic:

KodeZwerg und Uwe Raabe... ich hoffe ihr streitet nicht rum

Würde uns doch nicht im Traum einfallen

[KodeZwerg]

Zitat von Uwe Raabe:

Zitat von MicMic:

KodeZwerg und Uwe Raabe... ich hoffe ihr streitet nicht rum

Würde uns doch nicht im Traum einfallen

Seh ich genauso, da Uwe der weit aus Erfahrene Delphi Pro User ist war ich mir Anfangs auch nicht sicher das zu Schreiben. Falls es grob Klang lag es schlicht daran das ich ausser Haus musste und Round() über Format() nicht testen konnte, aber es erscheint mir logisch das ein "SetRoundMode()" kein "SetFormatIrgendWas()" replacement ist. Vielleicht ist es falsch was ich so von mir gebe. Jedenfalls tuts mir leid wenn es falsch rüberkam.

Hab Euch alle lieb.

[Schokohase]

Windows 10 zeigt im Explorer als Größe den Wert 302 KB und bei den Eigenschaften 301 KB (308 736 Bytes) an.

Konsistent ist da also anders.

Im Explorer erfolgt die Berechnung mit dem Kaufmännischen Runden und in den Eigenschaften evtl. mit dem Symetrischen Runden.