Глупый вопрос по лпх.

J-Fobos · 28.05.2010, 19:21

А может через жопу получится?

Максимальное значение integer плюс то что "не влезло" в переменную.

Код:

var
z:Cardinal;


z:=2147483647+abs(ReadD(10));

зы: я понимаю что если число может быть в 2-5 раз больше чем 2ккк и тогда это не сработает, но если оно только немного больше ...

guplen · 28.05.2010, 19:25

Цитата:

Сообщение от J-Fobos

А может через жопу получится?

Максимальное значение integer плюс то что "не влезло" в переменную.

Код:

var
z:Cardinal;


z:=2147483647+abs(ReadD(10));

Не, это не то...
Я сделал вот так, через Int64:

Код:

function ReadX(index:integer):int64;
var
    s:String;
begin 
    s:=pck[index+3]+pck[index+2]+pck[index+1]+pck[index];
    s:='$'+StrToHex(s);
    Result:=StrToInt64(s);
end;

Пробовал делать возвращаемое значение тип Cardinal. Но когда пытаешься преобразовать в строку через IntToStr, то опять получается отрицательное число.
Код кривой, из-за использования 8 байт вместо 4. Можно ли как то обойтись 4 байтами?

NLObP · 28.05.2010, 21:22

Цитата:

Сообщение от guplen

Пробовал делать возвращаемое значение тип Cardinal. Но когда пытаешься преобразовать в строку через IntToStr, то опять получается отрицательное число.
Код кривой, из-за использования 8 байт вместо 4. Можно ли как то обойтись 4 байтами?

Добавь, что тебе нужно в пакетхак. Исходники открыты.