Korrekte Struct Übersetzung

[Christian Seehase]

Moin,

ich würd's so machen:

Delphi-Quellcode:

const
  VDATA_MAX_TIME  = 15;
  VDATA_MAX_COUNT = 7;
  VDATA_MAX_DATA  = 4;

type
  _s_VData = record
    Value   : Byte;
    present : BOOL;
  end;

  s_VData = record
    Length  : DWORD;
    TS      : Byte;
    T0      : Byte;
    ib      : array [0..VDATA_MAX_COUNT-1,0..VDATA_MAX_DATA-1] of _s_VData;
    TCK     : _s_VData;
    pn      : DWORD;
    hb      : array [0..VDATA_MAX_TIME-1] of BYTE;
    hbn     : DWORD;
  end;

  VDATA = s_VData;