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

← →
markers © (2004-11-10 09:19) [0]

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

← →
MBo © (2004-11-10 09:29) [1]

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

← →
markers © (2004-11-10 09:32) [2]

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

← →
markers © (2004-11-10 09:34) [3]

Кусок кода 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;

← →
KilkennyCat © (2004-11-10 09:40) [4]

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

← →
KilkennyCat © (2004-11-10 09:41) [5]

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

StrToInt64

← →
markers © (2004-11-10 09:42) [6]

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

← →
markers © (2004-11-10 09:42) [7]

ропоздал

← →
KilkennyCat © (2004-11-10 09:45) [8]

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

← →
markers © (2004-11-10 09:47) [9]

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

← →
markers © (2004-11-10 09:51) [10]

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;

← →
begin...end © (2004-11-10 09:54) [11]

markers © (10.11.04 9:47) [9]

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

Ну дык правильно, это выходит за пределы Int64.

← →
markers © (2004-11-10 09:56) [12]

Ну дык тогда сделать?

← →
KilkennyCat © (2004-11-10 09:56) [13]

2^63-1 разве выходит?

> IntToStr(Ostatok)
это что?

← →
KilkennyCat © (2004-11-10 09:57) [14]

простите, ошибся. пойду спать.

← →
markers © (2004-11-10 09:58) [15]

KilkennyCat © (10.11.04 9:56) [13]
конвентирование в стирнг для вывода остатка трафика

← →
KSergey © (2004-11-10 09:59) [16]

А может попробовать не в байтах считать? А в чем покрупнее?

← →
KilkennyCat © (2004-11-10 09:59) [17]

> markers © (10.11.04 09:58) [15]

я понял... вначале не понял.

← →
begin...end © (2004-11-10 10:00) [18]

KilkennyCat © (10.11.04 9:57) [14]

Да нет, это я ошибся, действительно не выходит...

← →
markers © (2004-11-10 10:01) [19]

Подмогите, что сделать то..... :(

← →
Реактор (2004-11-10 10:06) [20]

У меня такая же проблема. Как я понял ничего не сделаешь. Надо свои процедуры писать и создавать новые типы. Это не сложная задача я такое уже делал для TP.
Хотя есть еще один выход. Я тут в инете нарыл калькулятор, который может обсчитывать числа до 200 знаков. Я попросил у хозяина исходник. Если даст, то ничего писать не надо. Просто адаптировать под себя и пользоваться.

← →
begin...end © (2004-11-10 10:08) [21]

markers © (10.11.04 9:47) [9]
Что-то я не пойму...

var
I, J, K: Int64;
begin
I := StrToInt64("250000000000000");
J := StrToInt64("999999999999999");
ShowMessage(IntToStr(J - I))
end

И у меня усё в порядке, никаких ошибок...

жопа...... :( А какое там максимальное значение интегера? Такие числа редко будут встречатся, буду надеятся что не попадутся....

сейчас дебаг сделаю посмотрю

Странно пять минут проверял не работало, сейчас проверил РАБОТАЕТ;) Ну наконец-то!;)
Остается только разобрать на байты килобайты магабайты и гигабайты
А какое максимальное число возможно при инт64?

markers © (10.11.04 10:09) [22]

> А какое там максимальное значение интегера?

Как верно заметил KilkennyCat © (10.11.04 9:56) [13], это значение для Int64 равно 2^63 - 1. Для Integer: 2147483647. А как верно заметил KSergey © (10.11.04 9:59) [16], лучше в чём-нибудь другом считать. Или перейти на какой-нибудь из real types...

--------------------- Sorry, I"m drunk now.

да врядли оно будет ольше этого, ну по крайней мере сильно больше
Спасибо

9223372036854775807

Самое правильное - сходить на алголист. Длинная арифметика - там очень популярная тема, и на форуме и статьи лежат хорошие

> [25] begin...end © (10.11.04 10:15)
> Или перейти на какой-нибудь из real types...

А вот это судя по задаче не пойдет. Видимо там надо складывать большие числа с маленькими, и, боюсь, в случае real-типов лимит интернета у пользователей никогда не настанет... ;)

Если нужны действительно большие числа, больше чем Int64,
послушай TUser © (10.11.04 11:03) [28]
и сходи http://algolist.manual.ru/maths/longnum.php

Раота с ограмадными числами. Найти похожие ветки