Двунаправленный список

[Елена1995]

Как добавить элементы в контейнер, который создан на основе двунаправленного упорядоченного замкнутого списка с заголовком?

[Stilet]

А как ты делаешь это с обычным списком?

[Елена1995]

не в объектном стиле понятно...а вот в объектном что-то не получается

[Stilet]

Ну а показать что ты имеешь ввиду кодом можешь?

[Елена1995]

unit Unit6;

interface
uses Unit5;
 type
TShopSpytnicTVContainer=class

Private

Name: string;
Adress: string;
First:TequipmentTV;
Count: integer;

Public

Constructor Create(aName, aAdress:string; aCount:integer);
Function GetFirst: TequipmentTV;
Procedure Add(acost:Integer; aModel:string);
//Function Delete (aModel:string):boolean;
//Procedure Save;
//Procedure Load;

End;

implementation

Constructor TShopSpytnicTVContainer.Create(aName, aAdress:string; aCount:integer);
begin
  First:= TequipmentTV.Create (nil,nil,nil,0,'', nil,First) ;
  Name:=aName;
  Adress:=aAdress;
  count:=0;
end;


Function TShopSpytnicTVContainer.GetFirst: TequipmentTV;
begin
  result:=First;
end;

Procedure TShopSpytnicTVContainer.Add(acost:Integer; aModel:string);
var Temp,pnew: TequipmentTV;
begin

вот это реализовать нужно на основе двунаправленного упорядоченного замкнутого списка с заголовком

[Stilet]

Это и все наработки?? О_о
Ладно, вопрос второй: Можно ли использовать контейнеры типа TStringList в качестве ядра для списка, или от тебя требуют что-то типа: http://www.programmersforum.ru/showthread.php?t=87357
Если можно то могу показать приблизительную наработку похожей задачи: http://www.programmersforum.ru/showthread.php?t=92621

[Елена1995]

есть еще наработки. но не скидывала их........требуют что-то типа: http://www.programmersforum.ru/showthread.php?t=87357

покажите пожалуйста, если не сложно

[Stilet]

Хм... Попробую сходу переделать под ООП тот пример:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 TDataTipe=integer;
 PTItem=^TItem;
 TItem=Record
  Data:TDataTipe;
  Prev,Next:PTItem;
 end;

 TListCircle=class
  private
   Head,CurItem:PTItem;
  public
    Function Ins(PrevItem:PTItem;AData:TDataTipe):PTItem;
    Function Sort:boolean;
    function fill:boolean;
    function outt:boolean;
    destructor Free;
 end; 
 
// Освобождаем ******************************
 destructor TListCircle.Free;
 var i:integer;p:PTItem
 begin
   CurItem:=Head;
   repeat
     p:=CurItem^.Next;
     dispose(curitem);
     CurItem:=p;
   until CurItem=Head; 
   dispose(curitem);
 end;

//Добавляем в список**********************
  Function TListCircle.Ins(PrevItem:PTItem;AData:TDataTipe):PTItem;
  begin
    new(result);
    result^.Data:=AData;
    Result^.Prev:=PrevItem;
    Result^.Next:=nil;
      if PrevItem<>nil then begin
        if (PrevItem^.Next<>nil) then
         PrevItem^.Next^.Prev:=Result;
        PrevItem^.Next:=Result;
      end;
  end;

// Наполняем   **************************
 function TListCircle.fill:boolean;
 var i:integer;
 begin
   Head:=ins(nil,0);
   CurItem:=First;
   for i:=1 to 10 do begin
     CurItem:=ins(CurItem,(20+random(100)));
   end;
 end;

// Выводим ******************************
 function TListCircle.outt:boolean;
 var i:integer;
 begin
   CurItem:=Head;
   repeat
     write(curitem^.data:5);
     CurItem:=CurItem^.Next;
   until CurItem=Head;
 end;

// Сортируем ***************************
 Function TListCircle.Sort:boolean;
 var q:PTItem;s:TDataTipe;
 begin
  q:=Head;
 repeat
   CurItem:=q;
   repeat
    if CurItem^.Data<q^.Data then begin
      s:=CurItem^.Data;
      CurItem^.Data:=q^.Data;
      q^.Data:=s;
    end;
    CurItem:=CurItem^.Next;
    until CurItem<>Head;
   q:=q^.Next;
  until q<>Head;
 end;


begin
with TListCircle.Create do begin
   fill;
   outt;
   writeln;
   Sort;
   outt;
 free;
end;
   Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Нда, только с сортировкой может бяка случиться, если захочешь кучу полей к элементу прикрутить.
в моем примере тут только одно поле, и перестановку делать проще.
Иначе придется изголяться перемещая указатели. Но уже поздно, и я хочу спатки, так что оставляю разбор полетов тебе. Впрочем я бы на твоем месте завтра на свежую голову продолжил. Утро вечера мудренее.

[Елена1995]

спасибо...но мне нужно это все в одной процедуре и в объектном стиле ....а такие наброски у меня есть

[Stilet]

в одной процедуре и в объектном стиле

Так не получится. ООП не предполагает работу в виде одной монолитной поцедуры. По крайней мере в Делфи.