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

zusammenfalten · markieren

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;

Was spricht gegen eine einfache

markieren

Delphi-Quellcode:

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

Anweisung?

etwa so ....

zusammenfalten · markieren

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;

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

Cardinal statt LongInt

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