Ausgabe der FileGröße

[bernhard_LA]

ich möchte die Größe von Ordnern ... nett formatiert ausgeben.
leider scheint die case Anweisung kein LongInt zu mögen und somit ist dieser Algorithmus verbesserungsbedürftig

Delphi-Quellcode:

function FormatByteStr(aFilesize: LongInt): String;
begin
  case aFilesize of
    0 .. 1000:
      result := InttoStr(aFilesize) + ' [Byte]';
    1001 ..1000000 :
      result := FloatToStrF(aFilesize / 1024, ffFixed, 12, 2) + ' [KByte]';
    1000001 .. 10000000:
      result := FloatToStrF(aFilesize / 1024 / 1024, ffFixed, 12, 2) +
        ' [MByte]';
    10000001 .. 10000009:
        result := FloatToStrF(aFilesize / 1024 / 1024 / 1024, ffFixed, 12, 2) +
      ' [GByte]'
  else
    result := FloatToStrF(aFilesize / 1024 / 1024 / 1024/ 1024 , ffFixed, 12, 2) +
      ' [TByte]';
  end;
end;

[Bernhard Geyer]

Was spricht gegen eine einfache

Delphi-Quellcode:

if ....
else if ...
else if ...

Anweisung?

[bernhard_LA]

etwa so ....

Delphi-Quellcode:

function FormatByteStr(aFilesize: LongInt): String;
begin
  if (aFilesize > 1E12) then
  begin
    result := FloatToStrF(aFilesize / 1024 / 1024 / 1024 / 1024, ffFixed, 12, 2)
      + ' [TByte]';
    exit;
  end
  else if (aFilesize > 1E9) then
  begin
    result := FloatToStrF(aFilesize / 1024 / 1024 / 1024, ffFixed, 12, 2) +
      ' [GByte]' ;
    exit;
  end
  else if (aFilesize > 1E6) then
  begin
    result := FloatToStrF(aFilesize / 1024 / 1024, ffFixed, 12, 2) + ' [MByte]';
    exit;
  end
  else if (aFilesize > 1E3) then
  begin
    result := FloatToStrF(aFilesize / 1024, ffFixed, 12, 2) + ' [KByte]';
    exit;
  end
  else
  begin
    result := InttoStr(aFilesize) + ' [Byte]';

  end;
end;

[bernhard_LA]

beim hochzählen während einer Ordneranalyse tauchen bei mir plötzlich negative Zahlen im Byte-Str auf , ich sehe den Fehler aber nicht :shock: ... , kann jemand helfen ?

[Bummi]

Cardinal statt LongInt

[DeddyH]

Oder gleich UINT64, wobei das IIRC trotzdem vorzeichenbehaftet ist, obwohl der Name anderes vermuten lässt.

[Aphton]

Außerdem stimmen strenggenommen die Werte (0..1000, ...) nicht!
Es wird immer in 2^10 Potenzen gezählt, also 2^10^x, bzw solltest du die magische Zahl 1024 verwenden!

[kwhk]

Wie hast Du die FileSize ermittelt ? Für Dateien > 2 GB braucht man INT64 und das bekommt man, wenn man die Dateigröße (64 Bit = 8 Bytes) aus dem Directory-Eintrag holt, andernfalls bekommst Du nur die unteren 4 Bytes und da wird das oberste Bit zum Vorzeichen.
Die Abfrage

Delphi-Quellcode:

aFilesize > 1E12

wird FALSE, wenn aFileSize negativ ist, dann kommst Du zu BYTE mit der negativen Zahl.
Siehe auch hier http://www.delphipraxis.net/24331-da...ermitteln.html
Longint besitzt nur 32 Bit und kann die FileSize nur für kleinere Dateien darstellen.
Statt der Division

Delphi-Quellcode:

FileSize/ 1024

sollte man lieber SHR benutzen

Delphi-Quellcode:

FileSize shr 10 // KBytes
FileSize shr 20 // MBytes
FileSize shr 30 // GBytes
FileSize shr 40 // TBytes

Delphi-Quellcode:

Cardinal statt LongInt

ist auch nur für kleinere Dateien anwendbar, da damit ebenfalls nur die unteren 32 Bit der tatsächlichen FileSize (64 Bit) abbildbar sind.

Die Dezimalzahl 2.147.483.648 entspricht einer Hex 80 00 00 00, das ist bereits in einer 32Bit Variablen das Minuszeichen, ab dieser Größe wird Longint negativ (reichlich 2 GB).