一个自定义类属性的读写问题

Question

Base=Class 
private
  FStyle:Item; 
  procedure  SetStyle(T:Item); 
public
  property Style: Item read FStyle write SetStyle;
end; 

Answer 1

你仔细看一下，你的两个参数写错了procedure  SetStyle(T:Item); <---这里为Tprocedure  Base.SetStyle(I:Item); <----这里为I,将上面的T改成I,就没问题

Answer 2

类的属性定义方法有误，应如chechy所写！

Answer 3

qiubolecn说的对，Delphi和C不一样，定义的参数和完成的参数必须一致。
我刚才忽略了。另外，如果定义属性后，完成的方法也要修改：
procedure  Base.SetStyle(T:Item); 
begin 
        FStyle:=T; 
end;