Мои Конспекты
Главная | Обратная связь

...

Автомобили
Астрономия
Биология
География
Дом и сад
Другие языки
Другое
Информатика
История
Культура
Литература
Логика
Математика
Медицина
Металлургия
Механика
Образование
Охрана труда
Педагогика
Политика
Право
Психология
Религия
Риторика
Социология
Спорт
Строительство
Технология
Туризм
Физика
Философия
Финансы
Химия
Черчение
Экология
Экономика
Электроника

Пример работы с типизированными файлами





Помощь в ✍️ написании работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

 

Пусть имеем файл, в котором хранится таблица рекордов с именами игроков и очками, которые им удалось набрать. Информация об игроке задается с помощью типа записи TTableRec:

type TTableRec = record

name:string[20]; // имя игрока

ochki:integer; // очки

end;

Для хранения такой информации в файле будем использовать типизированный файл, который опишем с помощью переменной:

f2:File of TTableRec;

Создадим форму, подобную той, что изображена на рисунке:

 

 

В поля формы вводятся соответственно имя игрока и его очки. По кнопке «Запись в типизир файл» выполняется запись информации о новом игроке в конец типизированного файла. По кнопке «Прочитать из типизир файла» можно убедиться в том, что запись выполнена правильно, содержимое файла отображается в поле Memo1. Программный код на кнопку «Запись в типизир файл» приведен ниже:

var

f2:File of TTableRec;

size:integer;

TableRec:TTableRec;

begin

TableRec.name:=Edit1.Text;

TableRec.ochki:=StrToInt(Edit2.text);

AssignFile(f2,'d:\temp\t2.txt');

if not FileExists('d:\temp\t2.txt') then

begin

// запись в новый файл

rewrite(f2);

write(f2,TableRec);

end

else

begin

reset(f2);

// запись в конец типизированного файла

size:=filesize(f2);

Seek(f2,size);

write(f2,TableRec);

end;

CloseFile(f2);

 

Программный код на кнопку «Прочитать из типизир файла» приведен ниже:

var

f2:File of TTableRec;

r1:TTableRec;

str:string;

begin

// прочитать содержимое типизированного файла

AssignFile(f2,'d:\temp\t2.txt');

Reset(f2);

Memo1.Clear;

while not eof(f2) do

begin

Read(f2,r1);

str:=r1.name+' '+ IntToStr(r1.ochki)+' ';

Memo1.Lines.Add(str);

end;

CloseFile(F2);

end;

 

Доверь свою работу ✍️ кандидату наук!
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой



Поиск по сайту:







©2015-2020 mykonspekts.ru Все права принадлежат авторам размещенных материалов.