Wie kann ich sie auf einfachste Weise mit Tausendertrennzeichen anzeigen?

[AdamNorris]

In meinem Programm gibt es enorme Zahlen, die für niemanden zu erkennen sind. Wie kann ich sie auf einfachste Weise mit Tausendertrennzeichen anzeigen?

[wp_xyz]

Es gibt zwei Möglichkeiten: Die Format-Anweisung mit dem %n-Format, und die FormatFloat-Anweisung mit einem Komma vor dem Dezimalpunkt:

Code: Alles auswählen

var
  x: Double = 1.2345E6;
  s: String;
..
  // String mit zwei Nachkommastellen
  s := Format('%.2n', [x]);   
  s := FormatFloat('#,##0.00', x);  // es geht auch kürzer, aber weniger verständlich: ',0.00'

[alfware17]

ich habe vor Jahren mal eine Unit Stdio geschrieben, die solche Ausgaben für verschiedene Datentypen macht. alles selbst programmiert in Pascal, die Format-Anweisung kannte ich damals noch nicht, jedenfalls nicht in Pascal, nur in Java o.ä. Sollte noch funzen, bei Interessen schreib mir eine PN

[KodeZwerg]

Viele Zahlentypen lassen sich für das menschliche Auge (und Gehirn) oftmals besser lesen wenn man sie für die Darstellung kürzt.
Als Beispiel für Byte:

Code: Alles auswählen

  function SizeToString(const ASize: UInt64; const oneKB: Integer = {$IFDEF MSWINDOWS}1024{$ELSE}1000{$ENDIF}): string;
  var
    Calc: Extended;
    Sign: String;
    SizeLength: Integer;
  begin
    SizeLength := 0;
    Calc := ASize;
    while (Calc > oneKB) do
      begin
        Calc := Calc / oneKB;
        Inc(SizeLength);
      end;
    case SizeLength of
      0: Sign := ' byte';
      1: Sign := ' kb'; // Kilo Byte
      2: Sign := ' mb'; // Mega Byte
      3: Sign := ' gb'; // Giga Byte
      4: Sign := ' tb'; // Tera Byte
      5: Sign := ' pb'; // Peta Byte
      6: Sign := ' eb'; // Exa Byte
      7: Sign := ' zb'; // Zetta Byte
      8: Sign := ' yb'; // Yotta Byte
      9: Sign := ' rb'; // Ronna Byte
      10:Sign := ' qb'; // Quetta Byte
    else
      Sign :=' (' + IntToStr(SizeLength) + ')';
    end;
    Result := FormatFloat('#,##0.00', Calc) + Sign;
  end;

Wobei man Byte mit vielen anderen Betitelungen austauschen kann, Herz, Ohm, Watt und so weiter ...
Zumindest finde ich es dargestellt so besser lesbar anstelle einer ewig langen Zahl mit wer weiß wieviel tausender Trennpunkten.

[Joh]

Aber 7.45 k€ auf einer Rechnung sieht schon blöd aus...

[KodeZwerg]

Aber 7.45 k€ auf einer Rechnung sieht schon blöd aus...

Es war nirgends die Rede von Währungen.
Sinn sollte das ganze schon machen, Beispielhaft liest es sich in einer Rechnung einfacher wenn 1000 Kg anstelle von 1000000 Gramm stünde, mit oder ohne Tausendertrennzeichen.