Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2017.01.15;
Скачать: CL | DM;

Вниз

Почему выводится неправильное число (указатели)?   Найти похожие ветки 

 
Некто   (2015-01-24 12:58) [0]


procedure TForm1.Button4Click(Sender: TObject);
var
 PMyUint: PByte;
 dwValue: DWORD;
begin
 dwValue := 123456789;
 GetMem(PMyUint, 123);
 CopyMemory(PMyUint, @dwValue, SizeOf(dwValue));
 ShowMessage(IntToStr(DWORD(PMyUint^)));        // тут выводит 21
 ShowMessage(IntToStr(PDWORD(PMyUint)^));       // а тут 123456789    
 FreeMem(PMyUint);
end;

В первом случае я использую разименование указателя, т.е он вроде бы должен указывать на число, а
приведение к типу DWORD берет первые 4 байта этих данных.
Почему выводится неправильное число в первом случае?


 
Inovet ©   (2015-01-24 13:26) [1]

Потому что
123456789(10) = 075BCD15(16)
а
15(16) = 21(10)


 
junglecat ©   (2015-01-24 13:28) [2]

в 1-м случае число обрезается до размера Byte, приведение к DWORD особой роли не играет
проверь
ShowMessage(IntToStr(Byte(123456789)));


 
Некто   (2015-01-24 14:28) [3]

Ясно. Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2017.01.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
15-1450281394
aka
2015-12-16 18:56
2017.01.15
Чтение/запись графа из файла


2-1419657072
SKIPtr
2014-12-27 08:11
2017.01.15
получение времени из DateTimePicker


15-1453277297
Dimka Maslov
2016-01-20 11:08
2017.01.15
Немного музыки


1-1346594556
Earl_Vadim
2012-09-02 18:02
2017.01.15
Библиотека LibUSB и DelphiXE2


2-1421233871
aka
2015-01-14 14:11
2017.01.15
самый быстрый вывод текста