| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Раота с ограмадными числами.

Страницы:   < 1 2 >

markers ©   (2004-11-10 09:19:00) 

Народ подскажите плиз как раотать с числом в 12 знаков и более, Особенно важны такие вещи как, вычесть и одного большого числа другое, Поделить на Tb, Gb, Mb, Kb, b. (Кстати как лучше всего это сделать?), Что самое отвратительное эти два числа крупных с которыми мне нужно работать нахоятся в стринге, а как их сконвентировать в число, так как они такие крупные не знаю... Ведь у интегера есть ограничение....
Вообщем подскажите люди добрые!;) Заранее сенкью;)

---

markers   (2004-11-10 09:51:00) [21]

LimitD,UserD,Ostatok: Int64;
        try
        LimitD:=StrToInt64(Limit);
        UsedD:=StrToInt64(Used);
        Ostatok:=LimitD-UsedD;
        if Ostatok >0 then
         TrafficOctatok.Caption:=IntToStr(Ostatok)
        else TrafficOctatok.Caption:='Трафик закончился';
        except
         on E: Exception do MessageBox(Handle, PChar(E.Message), PChar('ERROR!'), $00000040);
        end;

---

markers   (2004-11-10 09:47:00) [22]

Матюгается что 250000000000000 неверное итегеровое значение.... млин

---

KilkennyCat   (2004-11-10 09:45:00) [23]

отнять никаких проблем... в детском садике учили отнимать столбиком с переносом десятков - то же самое.
Поделить сложнее. но можно.

---

markers   (2004-11-10 09:42:00) [24]

ропоздал

---

markers   (2004-11-10 09:42:00) [25]

а как отнять? И как поделить стринг?

---

KilkennyCat   (2004-11-10 09:41:00) [26]

> markers ©   (10.11.04 09:34) [3]


StrToInt64

---

KilkennyCat   (2004-11-10 09:40:00) [27]

гм... да если они стринговые, то с ними и работать можно, как со стрингами... а деление на 1024 делается очень просто, ибо это деление на 2^10 :)

---

markers   (2004-11-10 09:34:00) [28]

Кусок кода UserD и LimitD сделал дворд таже фигня
        try
        LimitD:=StrToInt(Limit);
        UsedD:=StrToInt(Used);
        Ostatok:=LimitD-UsedD;
        if Ostatok >0 then
         TrafficOctatok.Caption:=IntToStr(Ostatok)
        else TrafficOctatok.Caption:='Трафик закончился';
        except
         on E: Exception do MessageBox(Handle, PChar(E.Message), PChar('ERROR!'), $00000040);
        end;

---

markers   (2004-11-10 09:32:00) [29]

Пробовал не получилось, может я чё не то делал?

---

MBo   (2004-11-10 09:29:00) [30]

Int64 для твоих задач подойдет?

---

Страницы:   < 1 2 >

Наверх