请问Delphi中的Private和Public的使用与c++中的有区别吗？

Question

我在书店中找不到相关的书籍，请各位简要说一下Delphi中Private和Public 的使用。在下将不胜感激。先在这里谢国了。

Answer 1

差不多的。type myClass=class
  private
    i:integer;
  public
    procedure foo();
  end;class myClass
{
  private:
    int i;
  public:
    void foo();
    
}

Answer 2

c与d的Private Public应该没啥差别。定义在两者下的变量的可见范围不同。

Answer 3

Object Pascal中，private限定的class成员在同一unit文件中可任意访问，而其它unit中则不能访问；在标准C++中，则在class外的任何地方均不能访问private成员（非friend声明时）。

Answer 4

接上段，Delphi例
unit Unit1;
//Form上放置一Edit和Button，双击Button1写事件。Form的private部分添加一成员Foo
//在implementation部分添加一函数（不属于Form1的成员）IncFoo，其中可访问Form1的
//private成员Foo (而在其它unit中不能直接访问Foo)interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Foo: integer;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function IncFoo(Sender: TForm1; n: integer = 1): integer;
begin
  Inc(Sender.Foo, n);
  Result := Sender.Foo;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(IncFoo(Self, 1));
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Foo := 0;
end;end.

Answer 5

C++中：
#include "stdafx.h"
#include<iostream.h>
class myClass
{
private:
void FooPrv();
public:
void FooPub();
};
void myClass::FooPub()
{
cout<<"myClass::FooPub() called"<<endl;
};
void myClass::FooPrv()
{
cout<<"myClass::FooPriv()"<<endl;
};
int main(int argc, char* argv[])
{
myClass tmp;
tmp.FooPrv ();//如果是这样，根本就无法通过编译，除非改为tmp.FooPub();
return 0;
}Delphi中：(一个Console工程,在工程文件的begin..end之间调用main方法.)
unit Unit1;interface
type
  myClass=Class
    private
        procedure FooPrv();
    public
        procedure FooPub();
  end;
    procedure main();
    var
  tmp:myClass;
implementation
    procedure myClass.FooPrv();
    begin
        Writeln('myClass.FooPrv() called.');
    end;
    procedure myClass.FooPub();
    begin
        Writeln('myClass.FooPub() called.');
    end;    procedure main();
    var s:string;
    begin
        tmp:=myClass.Create ;
        tmp.FooPrv ;//不仅可以通过编译,而且还可以正常输出'myClass.FooPrv() called.'
        tmp.Free ;
    end;end.

Answer 6

Delphi的这种单元可见性在设计上很不利。
应该淘汰掉。