vb代码如何转成DELPHI中代码,求助

Question

Type SysInfo
      cardtype As Byte '卡类型
      NewUserPW(7) As Byte ' 用户卡的KEYB
      userPW(7) As Byte '系统卡编号
      BackUp1(7) As Byte '用户密码
      BackUp2(7) As Byte  '操作密码
      BackUp3(7) As Byte '通讯密码
      ch(22) As Byte '加23个空字节
End Type

Answer 1

如何将本代码转化成DELPHI中的代码

Answer 2

type SysInfo=packed record
cardtype:byte;
NewUserPW:array[1..7] of Byte;
userPW:array[1..7] of Byte;
Backup1:array[1..7] of byte;
Backup2:array[1..7] of byte;
Backup3:array[1..7] of byte;
ch:array[1..22] of byte;
end;
type SysInfo=packed record
cardtype:byte;
NewUserPW:string[7];
userPW:string[7];
Backup1:string[7];
Backup2:string[7];
Backup3:string[7];
ch:array[1..22] of byte;
end;

Answer 3

搞忘了VB 中数组的Low Bound是0还是1
改了改：
type SysInfo=packed record
cardtype:byte;
NewUserPW:array[0..7] of Byte;
userPW:array[0..7] of Byte;
Backup1:array[0..7] of byte;
Backup2:array[0..7] of byte;
Backup3:array[0..7] of byte;
ch:array[0..22] of byte;
end;
type SysInfo=packed record
cardtype:byte;
NewUserPW:string[8];
userPW:string[8];
Backup1:string[8];
Backup2:string[8];
Backup3:string[8];
ch:array[1..23] of byte;
end;