Array of Byte in Array of Integer

[xaromz]

Hallo,

Zitat von himitsu:

Delphi-Quellcode:

Type TMyArray = packed Array
    Case Integer of
      0: (I: packed Array[0..Len-1] of Byte);
      1: (B: packed Array[0..Len div 4-1] of Integer);
  End;

Var MyArray: TMyArray;

Über MyArray.I kommst du dann an die Integerversion und mit MyArray.B die ByteVersion.

Sollten da nicht I und B ausgetauscht werden ?

Gruß
xaromz