|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
31.03.2011, 21:01 | #1 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Списки и типизированные файлы.
Здравствуйте. Делаю задачу, связанну со списками и типизированными файлами. И у меня такой вот вопрос: Возможно ли в типизированный файл записать списки? Если да- то как это реализовать? Можно ли будет потом читать эти списки в файле, как мы читаем числа, текст в файле? На примере скажем если в списки заложена информация о курсе, группе, и среднем балле студента.(тоже если можно опишите пожалуйста как). В интернете такого по спискам не нашел. Буду вам очень благодарен за помощь. |
31.03.2011, 21:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Интересующие вас ответы могут быть тут Pascal,ссылки, списки Типизированные файлы. Delphi Паскаль, типизированные файлы Создание, чтение файла и списки Динамические списки Списки |
31.03.2011, 21:50 | #2 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
что значит списки? record?
наверное можно. объявим тип r = record ... то использовать потом при объявлении файла f: file of r; вроде должно прокатить. ну или в дельфи есть тип variant используйте его |
01.04.2011, 00:19 | #3 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нет, не запускается. Посмотрите пожалуйста может я что-то не то делаю.
Код:
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); |
01.04.2011, 00:24 | #4 (permalink) |
Member
Регистрация: 26.03.2011
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|