Ausgabe der FileGröße

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