谁能将下列VB的结构定义转成DELPHI的结构定义

Question

Type CardStruct
    cardtype     As Byte  '填入  1
    HotelID(2)   As Byte  '酒店代号  3个字节
    AreaID       As Byte  '区域号  16进制数    01
    FloorID      As Byte  '楼层号  16进制数    02
    roomid       As Byte  '房间号  16进制数    03  三位表示房号为010203
    CardID       As Byte  '卡序号  0-255 循环
    OffOn        As Byte  '填入  0
    SDate(4)     As Byte  '起始日期  BCD码形式  YYMMDDHHMM
    EDate(4)     As Byte  '结束日期  BCD码形式  YYMMDDHHMM
    STiem(1)     As Byte  '填入  0
    ETime(1)     As Byte  '填入  0
    FloorCot     As Byte  '填入  0
End Type

Answer 1

delphi中没有结构 只有记录
Type Cardrec= record
   cardtype     : Byte  //填入  1
    HotelID(2)   :Byte  //酒店代号  3个字节
    AreaID       :Byte  //区域号  16进制数    01
    FloorID      :Byte  //楼层号  16进制数    02
    roomid       :Byte  //房间号  16进制数    03  三位表示房号为010203
    CardID       :Byte  //卡序号  0-255 循环
    OffOn        :Byte  //填入  0
    SDate(4)     :Byte  //起始日期  BCD码形式  YYMMDDHHMM
    EDate(4)     :Byte  //结束日期  BCD码形式  YYMMDDHHMM
    STiem(1)     :Byte  //填入  0
    ETime(1)     :Byte  //填入  0
    FloorCot     :Byte  //填入  0
end;

Answer 2

Type  Cardrec= record
    cardtype     : Byte  //填入  1
    HotelID   : array[0..2] of Byte  //酒店代号  3个字节
    AreaID       :Byte  //区域号  16进制数    01
    FloorID      :Byte  //楼层号  16进制数    02
    roomid       :Byte  //房间号  16进制数    03  三位表示房号为010203
    CardID       :Byte  //卡序号  0-255 循环
    OffOn        :Byte  //填入  0
    SDate     : array[0..4] of Byte  //起始日期  BCD码形式  YYMMDDHHMM
    EDate     : array[0..4] of Byte  //结束日期  BCD码形式  YYMMDDHHMM
    STiem     : array[0..1] of Byte  //填入  0
    ETime     : array[0..1] of Byte  //填入  0
    FloorCot     :Byte  //填入  0
end;应该是这样把？