Convert byte > 2 GByte

[XerSon]

Приветствую,

function ConvertBytes(Bytes: Int64): string;
const
  Description: Array [0 .. 8] of string = ('Bytes', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
var
  i: Integer;
begin
  i := 0;

  while Bytes > Power(1024, i + 1) do
    Inc(i);

  Result := FormatFloat('###0.##', Bytes / Power(1024, i)) + #32 + Description[i];
end;

Юзаю так:

Edit.Text := ConvertBytes(StrToInt('2000000000')); // ok

Edit.Text := ConvertBytes(StrToInt('3000000000')); // Exception class EConvertError with message ''3000000000' is not a valid integer value'.

Как конвертировать количество байт больше 2 GByte? Использовать Cardinal или UInt64 ну и в довесок IntPower?

[Аватар]

StrToInt64

[XerSon]

Сообщение от Аватар

StrToInt64

Спасибо, значит я был на правильном курсе, но не долетел %)