Перевести Gb в байты

[kholoshchak]

Всем добрый день... Необходимо перевести Gb -> Mb; Gb -> Kb; Gb -> байты. Но при переводе столкнулся с проблемой, если ввожу 2 Gb то получаю отрицательный результат в байтах, а если к примеру 4 Gb то вообще 0. В чем может быть причина и что не так.

[Аватар]

В Integer результат не умещается, сделай в Int64

[kholoshchak]

Все равно результат такой же. Здесь же простое умножение, почему получается 0???????

[Аватар]

А что простое умножение не может к переполнению привести? Еще как может и именно оно чаще всего и приводит. Да и почитайте, что такое тип Integer, какое максимальное и минимальное значение туда впихнуть можно. Заодно и другие целочисленные типы узнайте какие бывают

[DCxDemo]

диапазон integer -2147483648..2147483647
посчитай чему равны 4GB в калькуляторе виндовом и потом посмотри, влезает в этот диапазон или нет.

[kholoshchak]

По диапазону подходит Int64, но все равно получаю 0, хотя написано что он поддерживает функцию перевода IntToStr. Делаю следующим образом:

var
A: int64;
begin
A:=SpinEdit1.Value * 1024 * 1024 * 1024;
Edit3.Text:=SysUtils.IntToStr(A);
end;

Что я делаю не так? Как мне сделать перевод? Может для этого есть какие нибудь специальные функции? Очень нужна помощь.

[Аватар]

Нужно, что бы один из сомножителей был Int64. Например

A:=Int64(SpinEdit1.Value) * 1024 * 1024 * 1024;

[kholoshchak]

Аватар, спасибо тебе большое. наконец-то я получил что хотел.