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'进行赋值,真是不明白?
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'进行赋值,真是不明白?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货