Технический форум - Списки и типизированные файлы.

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Списки и типизированные файлы. (http://www.tehnari.ru/f41/t49715/)

Gerald

31.03.2011 21:01

Списки и типизированные файлы.

Язык - Delphi!
Здравствуйте. Делаю задачу, связанну со списками и типизированными файлами. И у меня такой вот вопрос:
Возможно ли в типизированный файл записать списки? Если да- то как это реализовать? Можно ли будет потом читать эти списки в файле, как мы читаем числа, текст в файле? На примере скажем если в списки заложена информация о курсе, группе, и среднем балле студента.(тоже если можно опишите пожалуйста как).
В интернете такого по спискам не нашел.
Буду вам очень благодарен за помощь.

kreol

31.03.2011 21:50

что значит списки? record?
наверное можно. объявим тип r = record ... то использовать потом при объявлении файла
f: file of r; вроде должно прокатить.
ну или в дельфи есть тип variant используйте его

Gerald

01.04.2011 00:19

Нет, не запускается. Посмотрите пожалуйста может я что-то не то делаю.

Код:

type

  Link=^Tlist;

  Tlist=record

      data:integer;{тип елеменетов в очереди}

      next:Link;{указатель на следующий элемент}

      MedB : array [1..NumSemestr] of real;

      Kurs : byte;        //  курс

      Group: byte;

      end;



var

  NumKurs,NumKurs1:integer;

  sr:real;

  c:byte;

  i,j,k:integer;

  pbegin,pend,r:Link;{переменные типа указатель-начало, конец и вспомогательная}

  f:file of Tlist;

  a:array[1..NumStud] of Tlist;

begin

...

 AssignFile(f,'E:\school.txt');

  Rewrite(f);

  new(pbegin);

  pbegin^.next:=nil;

  pbegin^.Kurs:=a[1].Kurs;

  write(f,pbegin^.Kurs);

  pend:=pbegin;

  for i:=2 to NumStud do

  begin

    new(r);

    r^.next:=nil;

    pend^.next:=r;

    pend:=r;

    pend^.Kurs:=a[i].Kurs;

    write(f,pbegin^.Kurs);

  end;

CloseFile(f);

Gerald

01.04.2011 00:24

Ой вот вместо этого:

Цитата:

Сообщение от Gerald (Сообщение 495803)

write(f,pbegin^.Kurs);

надо так:write(f,pend^.Kurs); НО все-равно не идет.

Часовой пояс GMT +4, время: 14:48.