delphi (двусвязный неупорядоченный список)

[KaZaaM]

вообщем половину я написал, половину нет, прошу помочь, вот текст задачи:
написать след процедуры:
-добавление узла в список(написано)
-вывод содержимого списка на экран(написано)
-поиск узлов с заданным значением(примерно знаю, но не могу написать)
-сохранения содержимого списка в текстовый файл(хз как)
-чтение содержимого списка из текстового файла(тож хз)
-удаление узла с заданным значением(написано)
-очистка списка(написано)

вот, то что я написал(консоль,не сам проект, а CircList)

PHP код:

unit CircList;
Interface
Type
 List=^NODE;
 Node=record
  Info:Byte;
  Next:List
 End;

var
 Head:List;

Procedure AddNode(var H:List; X:Byte);
Procedure OutCircle(H:List);
Procedure ClearList(var H:List);
Procedure delNode (var H:dlist; N:integer);



Implementation


Procedure AddNode(var H:List; X:Byte);
Var
  p:list;
begin
new(p);
p^.key:=x;
if H = nil then
  begin
  H:=p;
  H^.next:=nil;
  H^.prev:=nil;
  end
else
begin
p^.next:=h;
h^.prev:=p;
h:=s;
end;
end;


Procedure OutCircle(H:List);
var
 p:List;
 begin
  if H=Nil then
   Writeln('List Is EMPTY !!!')
  else
  begin
   p:=h;
   repeat
    Writeln(p^.info);
    p:=p^.next
   until p=H;
  end;
end;

Procedure ClearList(var H:List);
var
 p,tmp:List;
 begin
  if H=Nil then
   Writeln('List Is EMPTY !!!')
  else
  begin
   p:=h^.next;    { Удаление элементов списка, начиная со второго узла }
   while p<>h do
   begin
    tmp:=p;
    p:=p^.next;
    dispose(tmp)
   end;
   dispose(H);    { Удаление головного узла }
   H:=nil;        { После удаления узла значение ссылки - произвольное, задаем NIL }
 end;
end;

procedure delNode (var H:dlist; N:integer);
var
i:integer;
l,r:dlist;
begin
  q:=h;
  i:=1;
  while (q<>nil) and (i<n) do
  begin
    q:=q^.next;
    i:=i+1;
  end;
  if q=nil then writeln ('NO one SEARCH! ')
  else
  begin
    l:=q^.prev;
    r:=q^.next;
    if l<>nil  then l^.next:=r
    else
    h:=r;
    if r<>nil then r^.prev:=l
    dispose(q);
  end;
end;


End. 


[KaZaaM]

отпишитесь хоть как нить, если даже не можете помочь, а то как будто в пустую пишу

[Chudo4258]

Вот я писал такую програмку. Но просто подарить ее не могу, т.к. убил на нее много времени

[KaZaaM]

ну блин, готовая оконка у меня тоже есть

[KaZaaM]

короче, видимо тут помощи ждать......все только за деньги(

[Chudo4258]

Дак у меня и код есть, надо.....

Кстати, для тестирования записи и чтения из файла нада создать в томже каталоге что и ехе файл вот такие файлы:
Chtenie.txt - файл, откуда считывается
Zap.txt - файл, куда записывается

Ну а если хочешь могу продать эту задачу (конечно же код, а не ехе файл).

[KaZaaM]

да нет, спасибо, я не миллионер

[diliana]

Сообщение от KaZaaM

да нет, спасибо, я не миллионер

неужели миллион запросил

[KaZaaM]

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

[diliana]

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

Я на паскале это так представляю

funсtion Search () : .....;

begin
  Search:= nil;
   ..........{проход по списку}
   Search:= x; //найден 
    ....
    иначе writeln('не найден');
    .....
    иначе writeln('список пуст');
end.