初学者的问题。。。。需源码。。。
利用面向对象的含义（封装，继承，多态）写一个类，实现功能：输入一个书名，则输出这本书的书名、出版社、价格。请各位写出源码。谢谢了。 问题点数：100、回复次数：5Top
1 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-08-04 11:00:34 得分 20
太刻意了。还不如用C++
写一个书的类，然后继承出自己的类，然后每一本书都是一个对象，放到双向链表里。Top
2 楼sunde2004（小可）回复于 2005-08-04 11:02:43 得分 0
本意是用DELPHI写喔。用C写反映不出Delphi的水平。Top
3 楼lianshaohua（永远深爱一个叫“...”的好女孩儿!）回复于 2005-08-04 11:09:47 得分 80
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.
Top
4 楼lianshaohua（永远深爱一个叫“...”的好女孩儿!）回复于 2005-08-04 11:11:49 得分 0
其实用C++写出来更好，本人认为比在Delphi中写出来要好的多；Top
5 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-08-04 11:20:36 得分 0
delphi无非就是上面那种模式了嘛。
个人觉得delphi在面向对象上比较称道的应该是组件的编写了。
所以如果仅仅通过写个自己的类就能反映出delphi的优势那浅了点。
仅个人观点！Top
