Delphi - размер файла

[ridek]

Всем привет.
Возник вопрос, как мне перевести размер файла с байтов в мегабайт или в гигабайт.
Ищу размер так:

function GetFileSize(FileName: String): Integer;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

[BDA]

FS.Size div 1000000 - мегабайты
FS.Size div 1000000000 - гигабайты

[Аватар]

div 1000000

C каких пор?

FS.Size div 1024 - килобайты
FS.Size div (1024^2) - мегабайты
FS.Size div (1024^3) - гигабайты

[BDA]

Аватар, ой, действительно ошибся (задумался и стал вести подсчет, как производители накопителей http://old.computerra.ru/storage/343592/).

[type_Oleg]

function GetFileSize(FileName: String): Integer;

High(Integer) = как раз 1024^3 - 1
Для файлов от 2 Гб будет выводить всякую фигню.

[ridek]

Спасибо, работает.
А как мне теперь вывести до десятых?
Чтобы было так 11,2.

[Stilet]

format('%10.2f',[FS.Size/1024/1024]);

[ridek]

Спасибо, получилось.

[min@y™]

Когда-то в прошлой жизни я что-то такое говнокодил...

function FileSize2Str(const ASize: Int64): string;
begin
  if ASize < 1024
    then Result:= IntToStr(ASize) + ' байт'
    else if ASize < 1048576
           then Result:= FloatToStrF(ASize / 1024, ffFixed, 15, 2) + ' Кб'
           else Result:= FloatToStrF(ASize / 1048576, ffFixed, 15, 2) + ' Мб';
end;

[Vapaamies]

"Б" большое должно быть, иначе это биты.