摘要： 1 TMyDemo = class(TObject) 2 FName: string; {数据成员(Field)} 3 FAge: Integer; 4 private {私有的} {最为隐秘的访问程度} 5 procedure SetAge(Value: Integer); 6 protected {受保护的} {中等程度的访问能力} 7 ... 阅读全文