Смещение от базы указателя Опции

[AlienEmperor]

Есть указатель на структуру данных (простой указатель, не типизированный), мне нужно присвоить в цикле значения этих данных переменной... Вопрос: как это сделать ?

вот что есть (не работает):

Код

GetMem(P,Size);
Read(F,P^,Size,RealRead) ...
......
For I:=0 To RealRead DIV 4 Do
Begin
Data:=PDWORD(P)^[I] - ошибка компилятора - Array type required
Memo1.Lines.Add(IntToHex(Data,1));
End;
FreeMem(P,Size);

[hardcase]

Можно без разыменовывания:

type TBigArray = array[0..MaxInt div 4-1] of integer;
       PBigArray = ^TBigArray;

var  Ptr: pointer;
   P: PBigArray absolute Ptr;

 For I:=0 To RealRead DIV 4 Do Begin
    Data := P[I];
    Memo1.Lines.Add(IntToHex(Data,1));
  End;

Сообщение отредактировано: volvo - 7.11.2006 22:35