Аналог shl из Delphi

[Lumen]

Весм привет!

У меня вопрос к многоуважаемым форумчанам по дельфовскому оператору shl (побитовый сдвиг влево). Как его перевести на VB? Пробовал формулу x shl y = x * 2^y но получается другой результат. Собственно, вот что получается:

Код: Выделить всё

const stg:cardinal=$FA34C6A0;
par:=inttostr(stg shl 1);


Это Дельфи. Там par равен 4100558144
Так это выглядит в моем переводе на VB:

Код: Выделить всё

Const stg As Double = 4197762720#
par = Str(stg * 2^1)


Это Бэйсик. Тут par равен 8395525440.
Подскажите, плз, где я не прав.
Заранее спасибо.

[Odrick]

Гм... Вот уж не знаю, как работает shl в делфях, но:

4197762720 = 11111010001101001100011010100000

Соответственно при сдвиге на один бит влево будет:

111110100011010011000110101000000 = 8395525440

Что и дает VB.
При сдвиге вправо, соответственно (stg / 2^1):

1111101000110100110001101010000 = 2098881360

Что тоже правильно. Возможно в делфях $FA34C6A0 не равно 4197762720

[Lumen]

Возможно в делфях $FA34C6A0 не равно 4197762720

В том то и дело, что FA34C6A0 = 4197762720 даже в дельфях. Может какая-то бяка с типами переменных? Какой аналог переменных типа Caridnal в Бэйсике?

[Lumen]

Кажись понял в чём дело. Мне надо чаще Help читать. .
Фишка в том, что Cardinal в Delphi - беззнаковый тип. То есть при преобразовании числа в двоичную форму (FA34C6A0=11111010001101001100011010100000) оно считается отрицательным, т.к. старший бит равен 1. Тип переменной беззнаковый, т.е. эта единица отбрасывается. Полученное число 1111010001101001100011010100000 при преобразовании в десятичную запись дает 2050279072, что при умножении на 2^1, в свою очередь как раз и даёт 4100558144, о чём и кричит Delphi.

[Odrick]

Ну что, вроде разобрались