请大家过来看看

[JOHNNY77]

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.
各为大侠,为什么从赋值语句开始会出错.非常感谢你们能帮我!急!急急!保证给分!!!!

[老之]

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

[JOHNNY77]

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

[老之]

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

[JOHNNY77]

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

[老之]

我很少上QQ，你可以给我发短信息

[JOHNNY77]

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

[老之]

QQ：308881504