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

[Gerald]

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

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

 

[kreol]

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

 

[Gerald]

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

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]

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

write(f,pbegin^.Kurs);

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