динамический список и текстовый файл

[Form_13]

program курсовая;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

//односвязный список
Type
 p=^elem;
 elem = record
        data:string;
        sled:p;
        end;

 //считывание файлы в динамический список
 Function read (var ykaz:p):p;
  var next:p;
      F:textfile;
  begin
   Assign(F,'text.txt');
   Reset(F);
   new(ykaz);
   readln(F,ykaz^.data);
   new(ykaz^.sled);
   next:=ykaz^.sled;
   while (not EoF(F) ) do
    begin
     readln(F,next^.data);
     new(next^.sled);
     next:=next^.sled;
    end;
   close(F);
  end;

 Procedure write(var ykaz:p);
  var F:textfile;
  begin
   Assign(F,'text.txt');
   Rewrite(F);
   while (ykaz<>nil) and (ykaz^.sled<>nil) do
    begin
     Writeln(F,ykaz^.data);
     ykaz:=ykaz^.sled;
    end;
   close(F);
  end;

var ykaz:p;

begin
 ykaz:=read(ykaz);
 write(ykaz);
end.

Две процедуры: первая читает из файла строки в динамический список, вторая записывает всё обратно. Я сделаю потом третью процедуру работы с самими строками, но это не главное.
Главное: не работает запись!

[3D Hunter]

Используйте тип file of <тип данных>, например вашей записи. Текстовые файлы тут не уместны.
Код записи лучше так:

Type
  p=^elem;
  elem = record
    data:string[255];
    sled:p;
  end;
...
Procedure write(var ykaz:p);
var
  F:file of elem;
begin
try
  Assign(F,'text.bin');
  Rewrite(F);
  while ykaz<>nil do
  begin
    Write(F,ykaz^);
    ykaz:=ykaz^.sled;
  end;
finally
   closefile(F);
end;

Хотя зачем записывать в файл указатель на следующую запись, непонятно. При следующем чтении он все равно будет невалидным.

[Прик]

Если сделать так, то и пишет, и читает.

type
  p=^elem;
  elem = record
    data:string;
    sled:p;
  end;

var ykaz:p;

procedure read;
var next:p;
    F:textfile;
begin
  Assign(F,'text.txt');
  Reset(F);
  next := ykaz;
  while not EoF(F) do begin
    readln(F, next^.data);
    new(next^.sled);
    next := next^.sled;
  end;
  close(F);
end;

procedure write;
var F:textfile;
  yk:p;
begin
  Assign(F,'text.txt');
  Rewrite(F);
  yk := ykaz;
  while (yk<>nil) and (yk^.sled<>nil) do begin
    Writeln(F,yk^.data);
    yk:=yk^.sled;
  end;
  close(F);
end;

begin
  new(ykaz);
  read;
  write;
end.

Почему-то в коде нет освобождения памяти (процедура Dispose).

[Form_13]

1. Почему ты в процедуры не посылаешь файл? Всё время используешь глобальный указатель и не паришься?)
2. Смысл в процедуре записи делать локальный указатель? Неужели нельзя записывать через тот самый глобальный? Он же потом не потребуется.

[Form_13]

Program курсовая;

{$APPTYPE CONSOLE}

{$R *.res}

 Uses
  System.SysUtils;

//односвязный список
 Type
  p=^elem;
  elem = record
         data:string;
         sled:p;
         end;
 Var ykaz:p;
     flag:boolean;

 //считывание файлы в динамический список
 Procedure read;
  var next:p;
      F:textfile;
  begin
   Assign(F,'text.txt');
   Reset(F);
   next:=ykaz;
   while not EoF(F)  do
    begin
     readln(F,next^.data);
     if next^.data='' then
      begin
       flag:=true;
       break;
      end;
     new(next^.sled);
     next:=next^.sled;
    end;
   close(F);
  end;

 Procedure write;
  var F:textfile;
      yk:p;
  begin
   if flag then exit;
   Assign(F,'text.txt');
   Rewrite(F);
   yk:=ykaz;
   while (yk<>nil) and (yk^.sled<>nil) do
    begin
     Writeln(F,yk^.data);
     yk:=yk^.sled;
    end;
   close(F);
  end;


begin
 new(ykaz);
 read;
 write;
end.

Вот так переделал, спасибо. Ошибка была, потому что текстовый файл был пустой, я теперь сделал на это проверку.

[Form_13]

Единственный вопрос, в каком месте должен быть dispose? Как нам уничтожить указатель, чтобы сзади него ничего не осталось? После того, как перешли?

[Прик]

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

Единственный вопрос, в каком месте должен быть dispose?

var
  l, lp : p;

begin
  new(ykaz);
  read;
  write;

  lp := ykaz^.sled;
  while lp <> nil do begin
    l := lp^.sled;
    Dispose(lp);
    lp := l;
  end;
  Dispose(ykaz);
end.

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

Как нам уничтожить указатель, чтобы сзади него ничего не осталось? После того, как перешли?

Это уже второй вопрос
Непонятно что значит "перешли".

[Form_13]

Перешли, значит присвоили текущему указателю адресс следущего по списку элемента.

Procedure write;
  var F:textfile;
      yk,l:p;
  begin
   if flag then exit;                    //если мы выяснили при чтении, что файл пустой, выходим из подпрограммы
   Assign(F,'text.txt');
   Rewrite(F);
   yk:=ykaz;
   while (yk<>nil) do   //если текущий указатель имеет непустое значение, то..
    begin
     Writeln(F,yk^.data);     //записываем в файл строку, и ..
     l:=yk^.sled;
     dispose(yk);       //уничтожаем текущий элемент списка
     yk:=l;            //переходим на следущий указатель
    end;
   Dispose(ykaz);
   close(F);                  //закрываем файл.
  end;

ведь последний Dispose(ykaz); лишний по идее.

[Прик]

Уничтожается. Как показано освобождение указателей при записи в файл, то уничтожается. И после цикла Dispose еще раз вызывать не надо.
Сам же записал: "//уничтожаем текущий элемент списка"!!!
Так что, сколько их было, столько в цикле и грохнули.

Получается, что ты нашел более оптимальный код, чем я

[Form_13]

Угу) Посмотри все же вторую тему.