＋设为首页 ＋添加到收藏夹
利用面向对象的含义写一个类，实现功能：输入一个书名，则输出这本书的书名、出版社、价格。请各位写出源码。谢谢了。
太刻意了。还不如用C++
写一个书的类，然后继承出自己的类，然后每一本书都是一个对象，放到双向链表里。
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.
