Нужна подсказка по ООП - реализация класса "Книга" и методов обработки на Delphi

[kibrycker]

Создан класс в отдельном модуле. В нем есть поля: Автор, Название книги, Издательство, Дата издания, Количество страниц. Есть методы заполнения каждого поля в отдельности.

Задание: Нужно: Метод проверки двух книг на одного автора, Метод определения принадлежности книги конкретному автору.

Прошу подсказать, как делать, не код, а просто в каком направлении двигаться. Заранее благодарен.

[viks1]

Сообщение от kibrycker

Создан класс в отдельном модуле. В нем есть поля: Автор, Название книги, Издательство, Дата издания, Количество страниц. Есть методы заполнения каждого поля в отдельности.

Задание: Нужно: Метод проверки двух книг на одного автора, Метод определения принадлежности книги конкретному автору.

Прошу подсказать, как делать, не код, а просто в каком направлении двигаться. Заранее благодарен.

Можно сделать через БД , SQL запросы

[Sibedir]

Да не, если речь идет о ООП, то, ИМХО, нужно начинать с создания класса.
БД - могут помочь хранить данные. Но вот SQL для решения самой задачи здесь не нужен. На основе запросов можно всю эту работу провернуть не прибегая к ООП вообще. А нужно именно ООП.
------------------------------------------------------------------------------------------------------------
kibrycker, опиши класс TBook, в нем свойства Author, Title, Publisher, PublicationDate, PagesNumber. Потом добавь метод function AuthorIs (AAuthor: stirng): boolean. Ну и, наконец, создай процедуру, которая проверяет 'одинаковость' авторов:

function SameAuthor (ABook1, ABook2: TBook): boolean;
begin
  Result := ABook1.AuthorIs (ABook2.Author);
end;

------------------------------------------------------------------------------------------------------------

Метод проверки двух книг на одного автора

Это в виде метода делать не гоже. Нужна отдельная процедура. Ибо метод должен работать с данными одного экземпляря (самого себя), а тут нужно обработать сразу два. Привязывать это действие к какому-то одному объекту не логично.

[Serge_Bliznykov]

Сообщение от Sibedir

Это в виде метода делать не гоже. Нужна отдельная процедура. Ибо метод должен работать с данными одного экземпляря (самого себя), а тут нужно обработать сразу два. Привязывать это действие к какому-то одному объекту не логично.

В приниципе, согласен.
Но, в учебной задаче такое вполне себе логично и допустимо:
метод книги
TBook.IsAuthorEqual( OtherBook : TBook) : boolean;
который проверит, переданный в неё объект имеет такого же автора или нет...

[kibrycker]

Надо именно через ООП
Вот созданный класс

type
  TBook = class
  private
    fAuthor: String;
    fNameBook: String;
    fPublishers: String;
    fDate: TDateTime;
    fCountPage: Word;
  public
    Constructor Create;
    Function Info: String;
    Procedure SetAuthor (Author: String);
    Procedure SetNameBook (NameBook: String);
    Procedure SetPublishers (Publishers: String);
    Procedure SetDate (Date: TDateTime);
    Procedure SetCountPage (CountPage: Word);
    Function GetAuthor: String;
    Function GetNameBook: String;
    Function GetPublishers: String;
    Function GetDate: TDateTime;
    Function GetCountPage: Word;
    Property Author: String read fAuthor;
    Property NameBook: String read fNameBook;
    Property Publishers: String read fPublishers;
    Property Date: TDateTime read fDate;
    Property CountPage: Word read fCountPage;
  end;

var
  iBook: TBook;

implementation

Constructor TBook.Create;
begin
  fAuthor:= '';
  fNameBook:= '';
  fPublishers:= '';
  fDate:= 0;
  fCountPage:= 0;
end;

Procedure TBook.SetAuthor (Author: String);
begin
  fAuthor:= Author;
end;

Procedure TBook.SetNameBook (NameBook: String);
begin
  fNameBook:= NameBook;
end;

Procedure TBook.SetPublishers (Publishers: String);
begin
  fPublishers:= Publishers;
end;

Procedure TBook.SetDate (Date: TDateTime);
begin
  fDate:= Date;
end;

Procedure TBook.SetCountPage (CountPage: Word);
begin
  fCountPage:= CountPage;
end;

Function TBook.GetAuthor: String;
begin
  Result:= fAuthor;
end;

Function TBook.GetNameBook: String;
begin
  Result:= fNameBook;
end;

Function TBook.GetPublishers: String;
begin
  Result:= fPublishers;
end;

Function TBook.GetDate: TDateTime;
begin
  Result:= fDate;
end;

Function TBook.GetCountPage: Word;
begin
  Result:= fCountPage;
end;

Function TBook.Info: String;
begin
  Result:= fAuthor + ' ' + fNameBook + ' ' + fPublishers + ' ' +
            DateToStr (fDate) + ' ' + IntToStr (fCountPage);
end;

end.

[Sibedir]

Вот никогда за это не любил лабораторные по информатике. Дают задачу и предлагают решить её способом, который для этого не годится (всмысле, решить можно, но так делать не нужно). И главное, понимаешь это уже потом, спустя много лет. А когда делаешь лабораторную нет. Потом нечего удивлятся, что студенты не знают, с какого конца редьку едят.
У обучаемого должно сформироваться чёткое понимание того, для чего что он учит. Некий шаблон. А уж потом можно и творчество подключать.
---------------------------------------------------------------------------------

Надо именно через ООП

Ну дык, вперёд. Код сюда, если что. Поможем, не сомневайтесь. Задачка копеечная.

[whatever]

Так как задача чисто учебная, то для хранения можно использовать типизированый файл. При запуске работы считать данные из файла в динамический массив и работать уже с ним. При завершении сохранить все в файл.

Метод проверки двух книг на одного автора, Метод определения принадлежности книги конкретному автору.

Как уже сказали, пишите процедуры, для работы с массивом, содержащим элементы данного класса (ИМХО, я бы писал функции).

[Sibedir]

Вот созданный класс

Ништяк.
-----------------------------------------------------------------
Маленький рефакторинг

unit Unit2; // Создан класс в отдельном модуле

interface

uses
  System.SysUtils, Vcl.Dialogs;

type
  TBook = class
  private
    fAuthor    : String;
    fNameBook  : String;
    fPublishers: String;
    fDate      : TDateTime;
    fCountPage : Word;
  protected
    Procedure SetAuthor     (aAuthor    : String   ); // Добавил 'a' к имени аргумента, чтобы не совпадало с именем свойства
    Procedure SetNameBook   (aNameBook  : String   );
    Procedure SetPublishers (aPublishers: String   );
    Procedure SetDate       (aDate      : TDateTime);
    Procedure SetCountPage  (aCountPage : Word     );
  public
    Constructor Create (aAuthor, aNameBook, aPublishers: String; aDate: TDateTime; aCountPage: Word); // Пустых книг никогда ниочём нам не нужно.

    Function Info: String;
    function AuthorIs (aAuthor: string): Boolean;
    function IsAuthorEqual (aOtherBook : TBook): boolean;

    Property Author    : String    read fAuthor     write SetAuthor    ; // Get-ы убрал. Лишнее. Set добавил.
    Property NameBook  : String    read fNameBook   write SetNameBook  ; // Вообще Set-ы нужны, если при внесении изменений в экземпляр нужна какая-то реакция на это
    Property Publishers: String    read fPublishers write SetPublishers; // или проверка на правильность ввода данных (см. TBook.SetDate)
    Property Date      : TDateTime read fDate       write SetDate      ;
    Property CountPage : Word      read fCountPage  write SetCountPage ;
  end;

implementation

function TBook.AuthorIs(aAuthor: string): Boolean;
begin
  Result := ************************; // Сам
end;

Constructor TBook.Create (aAuthor, aNameBook, aPublishers: String; aDate: TDateTime; aCountPage: Word);
begin
  inherited Create;

  fAuthor     := aAuthor    ;
  fNameBook   := aNameBook  ;
  fPublishers := aPublishers;
  fDate       := aDate      ;
  fCountPage  := aCountPage ;
end;

Procedure TBook.SetAuthor (aAuthor: String);
begin
  fAuthor:= aAuthor;
end;

Procedure TBook.SetNameBook (aNameBook: String);
begin
  fNameBook:= aNameBook;
end;

Procedure TBook.SetPublishers (aPublishers: String);
begin
  fPublishers:= aPublishers;
end;

Procedure TBook.SetDate (aDate: TDateTime);
begin
  if aDate < Now then fDate:= ADate
  else ShowMessage ('Книга еще не издана');
end;

Procedure TBook.SetCountPage (aCountPage: Word);
begin
  fCountPage:= aCountPage;
end;

Function TBook.Info: String;
begin
  Result:= fAuthor + ' ' + fNameBook + ' ' + fPublishers + ' ' +
           DateToStr (fDate) + ' ' + IntToStr (fCountPage);
end;

function TBook.IsAuthorEqual(aOtherBook: TBook): boolean;
begin
  Result := ************************; // Уже писал
end;

end.

[kibrycker]

Всем спасибо, буду думать, пока занимаюсь другими предметами.

[s-andriano]

Собственно, о некоторой нелогичности задания уже было сказано.
Но мне кажется, что нелогичность требования сравнения вытекает из неправильно организованного класса.
Класс должен описывать не отдельную книгу, а библиотеку целиком.
Появляется массив структур, уникальный идентификатор книги, процедура AddBook...
И при этом вполне логичной выглядит процедура сравнения двух книг библиотеки.