[Deman1986]

Сорри торопился

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

класс TRam type     TRam = class(TObject) private // поля     FRam: Array of  TSegment; // динамический массив     FCount: integer; // приватное поле, количество сегментов public // конструкторы и деструкторы     constructor Create (ACount: integer);  // инициализация     destructor Destroy; override; // методы     procedure SetCount (ACount: integer); // установка количества элементов     procedure Reset; // обнуление данных        function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string; end;

Уважаемые форумчане я наверное вас уже замучал. Вот что ответил мне преподаватель.
Из всех классов правильно описан только класс TPage.
Класс TSegment в принципе имеет неправильное описание, т.к. по заданию у вас сегменты реализуются как контейнеры страниц на основе ДИНАМИЧЕСКОЙ, АДРЕСНОЙ реализации, а не на основе массива! Кроме того, не объявлены методы добавления и удаления.
Аналогично, в классе TRam нет методов добавления в список, удаления из списка и поиска сегмента.
вот еще раз всё классы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

класс TSegment type     TSegment = class(TObject) private // поля     FPages: Array of TPage; // массив     function GetCount: integer;     function GetPage (Index: integer): TPage;     public // конструкторы и деструкторы     constructor Create (ACount: integer); virtual; // инициализация     destructor Destroy; override; // уничтожение // свойства     property Count: integer read GetCount;     property Pages[Index: integer]: TPage read GetPage; // методы     procedure ClearAll; end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

класс TRam type     TRam = class(TObject) private // поля     FRam: Array of  TSegment; // динамический массив     FCount: integer; // приватное поле, количество сегментов public // конструкторы и деструкторы     constructor Create (ACount: integer);  // инициализация     destructor Destroy; override; // методы     procedure SetCount (ACount: integer); // установка количества элементов     procedure Reset; // обнуление данных         function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string; end;

Помогите пожалуйста я уже не знаю что хочет преподаватель. Спасибо за помощь