Record zu Array of Byte

[brechi]

Delphi-Quellcode:

type
  uint16 = word;
  uint32 = dword;

 TBitmapCoreHeader = record                                         // 14 Bytes
    Signature       :UInt16; // 'BM'
    FileSize        :UInt32; // Dateigröße in Bytes
    Reserved        :UInt32; // Unbenutzt
    DataOffset      :UInt32; // Datenaufsatzpunkt (Offset)
  end;
  TBarray = array[0..sizeOf(TBitmapCoreHeader)-1] of byte;
  PBarray = ^TBarray;



procedure TForm1.FormCreate(Sender: TObject);
var x: TBitmapCoreHeader;
    y: PBArray;
begin
  y := @x;

??