请大家过来看看

Question

Type
  PORT_CONFIG=class
  workMode      : WORD;
  filterMode    : WORD;
  accCode       : DWORD;
  accMask       : DWORD;
  timer0        : BYTE;
  timer1        : BYTE;
  control       : BYTE;
end;
Type
  PORT_STRUCT=class
  card      : BYTE;
  value     : BYTE;
end;
var
ptrStruct  : PORT_STRUCT;
ptrConfig  : PORT_CONFIG;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
    ptrStruct.card:=0;//从这句开始为什么会出错.弄不明白.
    ptrStruct.value:=0;
    ptrConfig.workMode:=0;
    ptrConfig.filterMode:=0;
  ptrConfig.accCode:=$50;
  ptrConfig.accMask:=$ff;
  ptrConfig.timer0:=$6d;
  ptrConfig.timer1:=$c3;
  ptrConfig.control:=0;
end;end.
各为大侠,为什么从赋值语句开始会出错.非常感谢你们能帮我!急!急急!保证给分!!!!

Answer 1

将
PORT_STRUCT=class
PORT_CONFIG=class
的class改成record

Answer 2

楼上的:liangqingzhi(老之)
非常感谢你,请问为什么不能用类???

Answer 3

如果要用类，你必须要声明它是private还是public，这里也没有用到方法函数等，只要定义成一个结构即可。

Answer 4

你好: 
liangqingzhi(老之)
为了表达我对你的感谢,现在给你加20分.如果方便,能不能给我QQ号.

Answer 5

liangqingzhi(老之)
烦请跟我说下号码好吗?我担心结贴后找不到你.