类定义的时候数据默认是public还是private?

chaty 2004-01-07 09:38:27

...全文

302 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxpbuaa 2004-01-09

打赏
举报

不好意思，写错了，{$M}在off状态应该是public而不是private。
至于
“published
你去看看code explorer 的左边”，不过是“code explorer”显示时的简化，其实有public和published之分。

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

cll007 2004-01-08

打赏
举报

学习一下下哦
谢谢桂枝兄

lxpbuaa 2004-01-08

打赏
举报

如果编译指令{$M}在on状态，那么是published，否则为private

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

cll007 2004-01-08

打赏
举报

Td=class
h:integer;//为什么在code explorer的左边显示的是在published呢
end;

jacky_shen 2004-01-08

打赏
举报

TfrmMain = class(TForm)
Button1: TButton; <---- 是指这个位置吧。是public的。
Memo1: TMemo;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Memo2: TMemo;
imgDraw: TImage;
Button2: TButton;
Memo3: TMemo;
Image1: TImage;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

iny 2004-01-07