Сохранение и загрузка списков (Паскаль)

[diliana]

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

чтобы всё заработало добавить VAR в описание процедуры Load:

Procedure Load (Var F:typlist; var curTmp ,HeadTmp: plist);

да. и ещё.
перед Close(f) в последнем элементе неплохо было бы добавить ссылочку на nil:

vsp^.next:=nil;
close(f);

Спасибо, спасибо!!!!!!
Да теперь я кажется поняла

ранее у меня были обьявлены формальние параметры, при которых механизм передачи был таков

Procedure Load (Var F:typlist;{параметр-переменная} curTmp ,HeadTmp: plist{параметр-значение});

{вызов программы}
Load (A, cura,HeadA);фактические параметры

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

Procedure  Load (Var F:typlist;{параметр-переменная} var curTmp ,HeadTmp: plist{параметр-переменная});

{вызов программы}
Load (A, cura,HeadA);фактические параметры

Во всяком случае я так поняла, если ничего опять не перепутала

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

diliana, я не знаю, сами ли Вы писали данную программу, если да - респект!

Писала-то сама, но благодаря подсказкам мастеров своего дела, как вы.
Спасибо большое-пребольшое.

[Serge_Bliznykov]

diliana - большое пожалуйста. всегда - Welcome!

ещё несколько замечаний.
1) параметер CurTMP в процедуре Load вообще не нужен.
там он не используется!
2) и вообще,по поводу параметров - на будущее, старайтесь не использовать формальные параметры с именами переменных, с которыми потом эти процедуры будут вызываться. С точки зрения компилятора (программы) всё будет в порядке, а вот Вам проще будет запутаться... особенного, если какой-то формальный параметер называется по одному, а в теле процедуры работа идёт с глобальными переменными.
поясню свою мысль на конкретном примере:
процедура Load:

Procedure Load (Var FLoad:typlist; var LocalHeadTmp: plist);
...
assign(fLoad,'mylist.dat');
...
reset(fLoad);
...
LocalHeadTmp:=vsp; // начало списка

3) Обработка ошибок - при вызове Load не проверяется наличие файла и то, что он может быть пустым!

4) при вызове Load было неплохо проверять и, если список не пустой, либо спрашивать пользователя - грузить или нет, либо - полностью ОЧИЩАТЬ старый список.
Иначе, при каждой загрузке списка, в случае уже имеющего списка будет происходить утечка памяти (каждый раз теряются ссылки на уже имеющийся список).
Или, как вариант, Load можно переписать, чтобы элементы добавлялись в конец уже имеющегося списка.

Удачи.

[diliana]

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

1) параметер CurTMP в процедуре Load вообще не нужен.
там он не используется!
2) и вообще,по поводу параметров - на будущее, старайтесь не использовать формальные параметры с именами переменных, с которыми потом эти процедуры будут вызываться. С точки зрения компилятора (программы) всё будет в порядке, а вот Вам проще будет запутаться... особенного, если какой-то формальный параметер называется по одному, а в теле процедуры работа идёт с глобальными переменными.

Спасибо, я также сообразила как загрузить списки 1 и 2, надо-то просто изменить фактические параметры и подправить «инициализацию» файла...И все работает!

     assign(A,'mylist1.dat');
     Load (A,HeadA);

     assign(A,'mylist2.dat');
     Load (A,HeadB);

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