|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#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 нет методов добавления в список, удаления из списка и поиска сегмента. вот еще раз всё классы: Код:
класс 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; Код:
класс 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; Последний раз редактировалось M.A.D.M.A.N., 23.11.2013 в 20:02. |