вот что есть (не работает):
Код
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);
Type
ArrType = Array[0 .. 0] Of DWord;
...
GetMem(P,Size);
...
For I:=0 To RealRead DIV 4 Do Begin
Data := ArrType(P^)[I];
Memo1.Lines.Add(IntToHex(Data,1));
End;
...
FreeMem(P,Size);
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;