Нужна помощь в описании класов. контейнер на базе очереди. Опции

[medvedeva]

тема:Объектная реализация контейнера на основе комбинированной структуры «Упорядоченный массив динамических очередей»
есть начало, но его нужно переделать так, чтобы выполнялось след:
- информационные объекты являются квартирами дома с парой свойств Номер и Площадь
- квартиры объединяются в рамках объекта Дом (свойство - НомерДома) на основе динамической очереди
- дома объединяются в рамках объекта Улица (свойство - Название) на основе упорядоченного массива.

Для этой задачи надо спроектировать набор необходимых классов, имена которых, а также имена их свойств и методов должны
соответствовать поставленной задаче.
- в классах ввести методы доступа к закрытым свойствам
- использование динамической версии массива не является обязательным
вот начало:

uses
classes,
SysUtils;

type
T = integer;
TypizFile = file of T; // типизированный файл

TQueueItem = class // класс - элемент очереди
private
Data: T; // мои данные
Next: TQueueItem; // указатель на следующий элемент
private
constructor Create(value: T); // создание элемента очереди
end;

TQueue = class // класс очередь
private
Marker: T; // для метки очередей, для их поиска
First, Last: TQueueItem; // указатели начала и конца

public
constructor Create; // инициализация очереди
destructor Free;
procedure Put(value: T); // добавление элемента
function Get: T; // удаление
procedure Print; // просмотр
function Empty: boolean; // проверка на пустоту

// procedure Save (value: T); //сохранение в файл
// procedure Load (value: T); // загрузка из файла
end;

{Класс TCont обьявляем контейнерным классом}
TCont = class // класс-контейнер
private // свойства
mas: array of TQueue; // динамический массив
procedure Add(theQueue: TQueue);

public
Constructor Create; // создание массива указателей очередей
Procedure Add_main; // добавить новые очереди в контейнер
Procedure Delete_main;
procedure Scan_main;
// procedure Save (value: T); //сохранение контейнера в файл
// procedure Load (value: T); // загрузка из файла
end;


{========================================}
// инициализация элемента
constructor TQueueItem.Create(value: T);
begin
Data := value;
next := nil;
end;

{==========================================}
// инициализация очереди
Constructor TQueue.Create;
begin
first := nil; last := nil; // создаем пустую очередь
end;
// Освобождаем память, которую занимала очередь
destructor TQueue.Free;
begin
while not Empty do Get; // удаляем все элементы
end;

заранее спасибо!

Сообщение отредактировано: Lapp - 29.06.2011 22:04

[IUnknown]

Не поверишь, достаточно заменить Record на Class и описать конструктор:

type
   Apts =
   class
      Number : Integer;
      S : Integer;
      constructor Create (nValue, sValue : Integer);
   end;

constructor Apts.Create (nValue, sValue : Integer);
begin
   Number := nValue;
   S := sValue;
end;

, функция Apt больше не нужна. Но потребуется внести еще два изменения:
1) заполнение очереди теперь надо делать так:

   with Hs_02 do
   begin
      (*
      Put (Apt(1, 100));
      Put (Apt(2, 120));
      Put (Apt(3, 100));
      Put (Apt(4, 150));
      *)
      Put (Apts.Create(1, 100));
      Put (Apts.Create(2, 120));
      Put (Apts.Create(3, 100));
      Put (Apts.Create(4, 150));
   end;

2) деструктор очереди примет вот такой вид:

destructor TQueue.Destroy;
var Value : Apts;
begin
   while not IsEmpty do
   begin
      Value := Get;
      Value.Free;  //  Если этого не сделать - будет утечка памяти
   end;
end;

А вообще мне очень не нравится, когда начинают накладывать ограничения. Задача сделать это на Дельфи? Какие могут быть "... использовать нельзя"? Всё, что доступно в языке, должно использоваться. Иначе тут же начинается изобретение костылей из-за ограничений вместо собственно решения задачи. Вот зачем, спрашивается, делать Apts классом? Просто чтобы было? Чтобы "крутое ООП" реализовать, ни шагу без классов? Смысла в этом ровно ноль. С записями я могу не беспокоиться об удалении из кучи, ибо записи там не создавались. В случае классов я должен еще и следить за тем, чтобы где-то в другом месте (вдруг мне понадобится удалить элемент из очереди не в ее деструкторе?) не было утечки. Кому нужна эта лишняя головная боль?

Сообщение отредактировано: IUnknown - 2.07.2011 11:04