Списки, ищу книгу(информацию).

[Heng]

Решил разобраться со списками
Односвязный список
Двусвязный список
Кольцевой список

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

[Stilet]

Вообще литературы хватает Вот хотя бы самая ближайшая: http://ru.wikipedia.org/wiki/%D0%9E%...81%D0%BE%D0%BA
Есть и примеры:
Двусвязный: http://www.programmersforum.ru/showthread.php?t=87357
Гетерогенный: http://www.programmersforum.ru/showthread.php?t=92621
Вот еще нямка: http://www.programmersforum.ru/showthread.php?t=10915

[Heng]

Дело в том что не могу разобраться в коде т.е. синтаксис не понимаю поэтому и нужна инфа которая мне и объяснит какой символ, что делает.
Вот например По Си урок http://www.youtube.com/watch?v=QKRngL_FBSs там буквально все разжевал, типо такого бы да Delphi
Если можно коротенький пример на Дельфи с основными действиями в списке.

Как назначить начало списка
Как назначить конец списка
Ну и указатели на каждый следующий

[phomm]

Видеокурс http://www.intuit.ru/studies/courses/997/313/info

[Heng]

Почему?, когда я создаю список вот этим кодом

new(p);
  p^.Marka:=s;
  p^.next:=nil;
  if (last=nil) and (first=nil) then
  begin
    first:=p;
    first^.prior:=nil;
  end
  else
  begin
    last^.next:=p;
    p^.prior:=last;
  end;
  last:=p;

а потом вывожу его этим

Form1.lbl4.Caption:='';
 if start=nil then writeln('List not init')
 else
 begin
 while (start<>nil) do
  begin
   Form1.lbl4.Caption:=Form1.lbl4.Caption+start^.Marka+' ';
   start:=start^.next;
  end;
 end;

Выводиться только последняя запись

и для чего создаем переменнюу prior: TPlist; ???
TList = record
Marka : String;
God : Integer;
Cena : Integer;
prior: TPlist;
next : TPList;
end;

[Heng]

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

Почему?, когда я создаю список вот этим кодом

new(p);
  p^.Marka:=s;
  p^.next:=nil;
  if (last=nil) and (first=nil) then
  begin
    first:=p;
    first^.prior:=nil;
  end
  else
  begin
    last^.next:=p;
    p^.prior:=last;
  end;
  last:=p;

а потом вывожу его этим

Form1.lbl4.Caption:='';
 if start=nil then writeln('List not init')
 else
 begin
 while (start<>nil) do
  begin
   Form1.lbl4.Caption:=Form1.lbl4.Caption+start^.Marka+' ';
   start:=start^.next;
  end;
 end;

Выводиться только последняя запись

и для чего создаем переменнюу prior: TPlist; ???
TList = record
Marka : String;
God : Integer;
Cena : Integer;
prior: TPlist;
next : TPList;
end;

Все вопрос снят, я просто процедуру инициализации списка написал на кнопку, и постоянно его обнулял ))

[phomm]

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

и для чего создаем переменнюу prior: TPlist; ???
TList = record
Marka : String;
God : Integer;
Cena : Integer;
prior: TPlist;
next : TPList;
end;

next - для односвязного списка, а prior для двусвязного или кольцевого.
Кстати, корректнее сказать "поле записи"/"поле", а не "переменная".

[Heng]

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

var
  ins,t,t1:TPList;
  label 1;
begin
  new(ins);
  ins^.ID:=Form1.Sort(s,IntToStr(g),IntToStr(c));
  ins^.Marka:=s;
  ins^.God:=g;
  ins^.Cena:=c;

  if first = nil then begin
    ins^.next:=nil;
    ins^.prev:=nil;
    first:=ins;
    last:=ins;
    goto 1;  //Äîñðî÷íûé âûõîä èç ïðîöåäóðû
  end;

  New(t);
  t:=first;

  if (t^.ID > ins^.ID) then begin
    ins^.next:=t;
    ins^.prev:=nil;
    first:=ins;
    goto 1;
  end;

  New(t1);
  t1:=t^.next;
  while t1<>nil do begin
    if (t^.ID < ins^.ID) and (ins^.ID < t1^.ID) then begin
      t^.next:=ins;
      t1^.prev:=ins;
      ins^.next:=t1;
      ins^.prev:=t;
    end;
    t:=t^.next;
    t1:=t^.next;
  end;
  t^.next:=ins;
  ins^.next:=nil;
  t^.prev:=t;
1:
end;

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