Проверка кода Делфи. Динамический кольцевой список

[agrestid]

помогите пожалуйста-нужно создать кольцевой список и записать его в файл и обратно
и обеспечить сортировку этого списка

хотя бы скелет самой программы

или подскажите,где искать информацию,везде какие-то обрывки

буду рад любой помощи)

[agrestid]

procedure writetofile;
var
  f: file of book;
  p, head: pp;
begin

  AssignFile(f, 'd:\2.txt');
  rewrite(f);
  write(f, p^.dbook);
  p := p^.next;
  while p <> head do
  begin


    write(f,p^.dbook);
  {Write(f,p^.dbook.f );
    Write(f,p^.dbook.i );
    Write(f,p^.dbook.o );
    Write(f,p^.dbook.a );
    write(f,p^.dbook.t );  }

    p := p^.next;
  end;
  closefile(f);
  writeln('+');
end;

в чем ошибка в процедуре?

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[agrestid]

book-тип запись

[Serge_Bliznykov]

во-первых, неплохо бы увидеть описание типов book и pp

во-вторых, Вы, похоже, не понимаете, что такое типизированный файл и что означает запись file of book

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

procedure writetofile;
var
  f: file of book;
  p: pp;
begin
  AssignFile(f, 'd:\2.bin'); {файл типизированный (он же бинарный), не стоит ему давать расширение txt, это НЕ ТЕКСТ!}
  rewrite(f);
  p := head;
  while p<>nil do begin
     write(f, p^.dbook);
     p := p^.next;
  end;
  closefile(f);
end;

[agrestid]

procedure Erase;
var
  s, h,l: PP;
begin
     l:=last^.next;
     l:=nil;
        s := head;
    head := head^.next;
    Dispose(s);
  while (head <> l) do
  begin
    s := head;
    head := head^.next;
    Dispose(s);
  end;


end;

еще проблема с процедурой очистки списка

список у меня кольцевой

[agrestid]

type
  book = record
    f: string[20];

    i: string[20];
    o: string[20];
    a: string[20];
    t: Integer;
  end;
  PP = ^Pbook;
  Pbook = record
    dbook: book;
    next: pp;
  end;
var
  head,last: PP; //x:PP;
  cas,O: Integer;
   arr:array of book;
   ssss,sss:string;

описание переменных

[agrestid]

и вот,если нужно,весь проект

[Serge_Bliznykov]

как-то всё у вас разбросано, порядка нет!

из того, что сразу бросилось в глаза (ошибки)
1) не ленитесь в начале программы ОБНУЛЯТЬ переменные.
например, head у Вас где присваивается nil в начале? Нигде!

2) из процедуры Vvod

procedure Vvod; // процедура добавления 1 элемента в список
var
  d: book;
  //Head: Pointer;
  p: PP;
  last: PP;

уберите описание переменной last
запомните, что те переменные, которые Вы описали внутри процедуры/функции существуют только пока выполняется процедура/функция. Закончилось выполнение и всё, кирдык. Всё, что было в переменной last - улетучилось.

[agrestid]

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


***я написал вам в лс***

[Serge_Bliznykov]

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

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

это Вы делаете правильно.
можно и ещё один указатель на конечный (тот, что ссылается на голову списка) ДОПОЛНИТЕЛЬНО держать.

Без них работать со списком невозможно, указатели обязательно нужно сохранять.

теперь возвращаемся к процедуре очистки списка.
у меня проверить негде.
но я бы написал так:

// очистка списка с освобождением занятой памяти
procedure Erase;
var
  p,pnext : PP;
begin
  if head=nil then Exit; {список пустой, делать тут нечего}
  p:=head;
  while p<>nil do 
  begin
    pnext := p^.next;
    dispose(p);
    p := pnext;
  end; 
  head := nil; {ну и обнулим указатель на список}
end;