VPF::[Pascal] Cписки. Запись/чтение файла.

Ansell

Дата 26.5.2014, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 26.5.2014

Репутация: нет
Всего: нет

Здравствуйте. Условия следующие: есть динамический список, каждое звено которого содержит несколько полей:

Код


zveno = record
    comp: string[50];
    loc: string[3];
    prof: string[20];
    qual: string[20];
    exp: string[3];
    pay: string[6];
    voc: string[3];
    next: adr;

После заполнения этого списка нужно записать, а потом считать его с типизированного файла. Вот что у меня получилось с записью в файл:

Код


procedure save(spis: adr); {adr = ^zveno}
var
  f: file of string[50];
  fn: string;
  tekzv: adr;
begin
  writeln('Запись в файл.');
  writeln('Имя файла: ');
  readln(fn);
  if fn <> '' then
  begin
    assign(f, fn);
    {$I-}
    rewrite(f);
    {$I+}
    while tekzv <> nil do
    begin
      write(f, tekzv^.comp);
      write(f, tekzv^.loc);
      write(f, tekzv^.prof);
      write(f, tekzv^.qual);
      write(f, tekzv^.exp);
      write(f, tekzv^.pay);
      write(f, tekzv^.voc);
      tekzv:=tekzv^.next;
    end;
    writeln('Список записан в файл.');
  end
  else
    writeln('Не удалось создать файл! Проверьте имя файла.');
end;

Но данные не заносятся в файл. Он создается пустым. Прошу оказать помощь в написании 2-х процедур: запись и чтение из типизированного файла.

Это сообщение отредактировал(а) Ansell - 26.5.2014, 11:52

ФедосеевПавел

Дата 26.5.2014, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Замени при записи и при чтении строк в/из файл(а) write на writeln (ну, и read на readln).
Добавь закрытие файла close(f).
Думаю, что заработает.

Это сообщение отредактировал(а) ФедосеевПавел - 26.5.2014, 19:49

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »