Delphi 类成员的默认访问权限（用RTTI检测）

类的成员，如果没有private、public等显示什么，直接在class下面，没有写访问权限的限定符，这种成员是不是默认的访问权限啊？还是publish的访问权限啊？

----------------------------------------------------------

什么答案都有， 就是都不愿意动手， 让我们来看看答案是什么吧

implementation

uses
  rtti, typinfo;
{$R *.dfm}

type

  TTest1 = class
    MemberOfTTest1: Integer;
  end;

  TTest2 = class(TPersistent)
    MemberOfTest2: TObject;
  end;

  {$M+}
  TTest3 = class
    MemberOfTest3: TObject;
  end;
  {$M-}

  TMemberVisibilityHelper = record helper for TMemberVisibility
  public
    function ToString: string;
  end;

function TMemberVisibilityHelper.ToString: string;
const
  VisibilityStrings: array [TMemberVisibility] of string = ('Private', 'Protected', 'Public', 'Published');
begin
  Result := VisibilityStrings[Self];
end;

procedure TForm1.ShowMemberOf(const obj: TClass);
var
  rttiContext: TRttiContext;
  rttiType: TRttiType;
  rttiField: TRttiField;
begin
  rttiContext := TRttiContext.Create;
  rttiType := rttiContext.GetType(obj);
  for rttiField in rttiType.GetFields do
  begin
    mmo1.Lines.Add(Format('FieldName: %s, Visibility: %s', [rttiField.Name, rttiField.Visibility.ToString]));
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMemberOf(TTest1);
  ShowMemberOf(TTest2);
  ShowMemberOf(TTest3);
end;

最后程序输出的结果是：

FieldName: MemberOfTTest1, Visibility: Public
FieldName: MemberOfTest2, Visibility: Published
FieldName: MemberOfTest3, Visibility: Published

大家应该知道了吧， 如果没有被{$M+} 修饰过的， 默认是public的， 相反则是published的， 而第2个TPersistent类在classes单元中声明的时候就是已经被{$M+}包裹起来的， 单独给出一个答案的人要被打脸了哦， 偷懒啊 ：）

-----------------------------------------------------------

其实大家每天都这样调用form1.button1就能调用，而且button1在DFM文件里有各种属性，所以当然是published。
不过C++属性不加修饰，确实是private，也不知道为啥两者有这个区别？都是OO语言，但是指导思想不一样？