FormatFileSize

[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