delphi的面象对象和c++的怎末差这么多啊?

Question

program Project1;
uses
  SysUtils;
type
book=class
private
 title:string[20];
 Author:string[20];
 publisher:string[20];
 price:real;
public
  constructor create;
  destructor destroy;override;
  procedure display;
end;constructor book.create;
begin
 inherited create;
 writeln('object construct');
end;destructor book.destroy;
begin
 inherited create;
 writeln('object deconstruct');
end;procedure book.display;
begin
writeln('titel:'+title);
writeln('Author:'+Author);
writeln('publisher by:'+publisher);
write('price:');
writeln(price:10:2);
end;
var
 delphibook:book;
begin
 delphibook:=book.create;
 delphibook.title:='Master delphi 7';
 delphibook.Author:='jantzen';
 delphibook.publisher:='not know';
 delphibook.price:=2.22;
 delphibook.display;
 delphibook.Free;
end.在c++中Private的变量只能是本类的方法调用,如果是delphibook.title:='Master delphi 7'肯定出错,而DELPHI在对象中都可以用象delphibook.title:='Master delphi 7'进行赋值,真是不明白?

Answer 1

同一单元下的所有成员都可以访问
也就是同一PAS的所有类都是友元关系Delphi和C++当然差别很大的，但Delphi的语法更为严谨，更好理解，慢慢你就会明白的了

Answer 2

同意 ly_liuyang(Liu Yang) 
c++比较灵活，delphi很严谨优美