Сорри торопился
Код:
класс 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;
Помогите пожалуйста я уже не знаю что хочет преподаватель. Спасибо за помощь