Пожалуйста помогите решить задачку.
Вот задание:
Разработка набора взаимосвязанных классов для реализации структуры данных «Динамический список статических очередей» как специализированного контейнера для хранения информационных объектов.
Вот что смог сделать
Код: Выделить всё
TListItem=class
private
FQueue: QueueClass; // содержимое элемента списка(очередь)
FNext: TListItem;
public
function GetQueue:integer;
procedure SetQueue(NewQueue:integer);
function GetNext:integer;
procedure ShowAll;
end;
Класс списка:
TList=class
private
FFirst: ^TListItem;// показывает первый элемент списка
public
constructor Create(NewFirst: TListItem,NewCount1:integer);overload;
function GetCount1:integer;
procedure SetCount1(NewCount1:integer);
function GetFFirst:integer;
function Delete(Index:integer);
procedure Insert(Index:integer, NewQueue: QueueClass);
procedure Save;
end;
InfoClass=class
private
Info:integer;
public
constructor Create(aInfo:integer);
function GetInfo:integer;
procedure SetInfo(aInfo:integer);
end;
QueueClass=class
private
FQueue: array[1..max] of InfoClass;
Count:byte;
public
Constructor Create();
Function GetCount: byte;
Procedure SetCount(aCount : byte);
Procedure AddItem(ainfo : integer); // процедура добавления элемента
end;