初学者的问题。。。。需源码。。。

Question

利用面向对象的含义（封装，继承，多态）写一个类，实现功能：输入一个书名，则输出这本书的书名、出版社、价格。请各位写出源码。谢谢了。

Answer 1

本意是用DELPHI写喔。用C写反映不出Delphi的水平。

Answer 2

type
  Tbook = class//基本上可以这样写，至于你从哪里读出书的价格就要看你了，是从数据库中还是从
//文件中，只需要加上相应的实现方法就可以了；
  private
     bookname,bookissue:string;
     bookpri:real;
  public
    procedure setname(na:string);
    procedure readinfo();
    procedure showinfo();
end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure Tbook.setname(na:string);
begin
  if bookname<>na then
  bookname:=na;
end;procedure Tbook.readinfo;
begin
end;procedure Tbook.showinfo;
begin
  showmessage(bookname);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  book:Tbook;
begin
  book:=Tbook.Create;
  book.setname('ss');
  book.showinfo;
  book.Free;end;end.

Answer 3

其实用C++写出来更好，本人认为比在Delphi中写出来要好的多；

Answer 4

delphi无非就是上面那种模式了嘛。个人觉得delphi在面向对象上比较称道的应该是组件的编写了。所以如果仅仅通过写个自己的类就能反映出delphi的优势那浅了点。仅个人观点！