VPF::Работа с указателем на массив и VirtualAlloc

cemick

Дата 19.3.2009, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

Чисто теоретический вопрос(экспериментирую), поясните пожалуйста, почему получаю вот такое в мемо:

62914560
62914560
======
0
8
0
0
0
0
0
0
0
0
======
А не перечисление 0 .. 9...

Код


type TByteArr = array[0..9] of Byte;
     PByteArr = ^TByteArr;

var p:Pointer;
    ar: PByteArr;
    b: byte;
    pB: PByte;
begin
  p := Pointer(62914560); //62849024
  p := VirtualAlloc(p,10*1024,MEM_RESERVE,PAGE_READWRITE);
  Memo1.Lines.Add(IntToStr(Integer(p)));
  p := VirtualAlloc(p,3*1024,MEM_COMMIT,PAGE_READWRITE);
  Memo1.Lines.Add(IntToStr(Integer(p)));
  ar := p;
  Memo1.Lines.Add('======');
  for b := 0 to 9 do
   ar^[b] := b; 

  pB := p;
  for b := 0 to 9 do
  begin
    pB := Pointer(Integer(pB) + b * 8);
    Memo1.Lines.Add(IntToStr(pB^));
  end;
 Memo1.Lines.Add('======');
end;

Это сообщение отредактировал(а) cemick - 19.3.2009, 13:12

CodeMonkey

Дата 19.3.2009, 13:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

* 8 лишнее

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

cemick

Дата 19.3.2009, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

упс...)) че это я решил выполнять адресацию в битах smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »