Вывод записи в файл

Type

Ввод и вывод записей в файл

Begin

Инструкция with

Var

Type

TPerson = record

f_name: string [20];

l_name: string [20];

day: integer;

month: integer;

year: integer;

address: string[50]; end;

TDate = record

day: integer; month: integer; year: integer;

end;

После объявления типа записи можно объявить переменную-запись (или просто запись), например:

student: TPerson; birthday: TDate;

Для того чтобы получить доступ к элементу (полю) переменной-записи (записи), нужно указать имя записи и имя поля, разделив их точкой. Например, инструкция

ShowMessage('Имя: ', student.f_name + #13 + 'Адрес: ', student.address);

выводит на экран содержимое полей f_name (имя) и address (адрес) переменной-записи student.

Иногда тип переменной-записи объявляют непосредственно в разделе объявления переменных. В этом случае тип записи указывается сразу за именем переменной, через двоеточие. Например, запись student может быть объявлена в разделе var следующим образом:

student: record

f_name:string[20];

l_name:string[20];

day:integer;

month:integer;

year:integer;

address:string[50];

end;

Инструкция with позволяет использовать в тексте программы имена полей без указания имени переменной-записи. В общем виде инструкция with выглядит следующим образом:

with Имя do

(инструкции программы } end;

где:

• имя — имя переменной-записи;
• with — зарезервированное слово языка Delphi, означающее, что далее, до слова end, при обращении к полям записи имя, имя записи можно не указывать.

Например, если в программе объявлена запись

student:record // информация о студенте

f_name: string [30]; // фамилия

l_name: string [20]; // имя

address: string [50]; // адрес

end;

и данные о студенте находятся в полях Edit1, Edit2 и Edit3 диалогового окна, то вместо инструкций

student.f_name:= Editl.text;

student.l_name:= Edit2.text;

student.address:= Edit3.text;

можно записать:

with student do begin

f_name:= Edit1.text; f_name:= Edit2.text; address:= Edit3.text;

end;

Записи можно хранить в файле. Для того чтобы программа могла сохранить значение переменной-записи в файле или ввести его из файла, необходимо объявить файл, указав в качестве типа его компонентов тип "запись". Например, инструкции

ТРеrson = record

f_riame: string [20];

l_name: string [20];

address: string [50]; end; var

f: file of TPerson;

объявляют файл, компонентами которого являются записи типа TPerson.

Процесс работы с файлом записей практически ничем не отличается от процесса работы с обычным файлом. Сначала надо объявить файловую переменную и с помощью процедуры Assign связать эту переменную с конкретным файлом. Затем нужно открыть файл (для чтения, записи или обновления). После этого можно прочитать запись из файла или записать запись в файл.

Рассмотрим программу, которая записывает в файл введенные пользователем данные о результатах соревнований, формируя, таким образом, простую базу данных. Исходные данные вводятся в поля диалогового окна (рис. 75.) и сохраняются в файле, компонентами которого являются записи типа TMedal.

Рис. 75. Окно программы Добавление записи в файл

Для ввода фамилии спортсмена применяется поле редактирования (компонент Edit). Для ввода названия вида спорта и страны используются компоненты ComboBox (комбинированный список).

Компонент ComboBox, значок которого находится на вкладке Standard (рис.76), дает возможность ввести данные либо непосредственно в поле ввода-редактирования, либо путем выбора из списка, который появляется в результате щелчка на кнопке раскрывающегося списка.

Рис. 76. Значок компонента ComboBox В табл. 10. перечислены свойства компонента ComboBox.

Таблица 10. Свойства компонента ComboBox

	Свойство	Определяет
	Name	Имя компонента. Используется для доступа к свойствам компонента
	Text	Текст, находящийся в поле ввода-редактирования
	Items	Элементы раскрывающегося списка
	DropDownCount	Количество отображаемых элементов в раскрытом списке
	Left	Расстояние от левой границы компонента до левой границы формы
	Top	Расстояние от верхней границы компонента до верхней границы формы
	Height	Высоту компонента (поля ввода-редактирования)
	Width	Ширину компонента
	Font	Шрифт, используемый для отображения элементов списка
	ParentFont	Признак наследования свойств шрифта родительской формы

Список, который появляется в результате щелчка на кнопке раскрытия списка, может быть сформирован как в процессе разработки формы приложения, так и во время работы программы. Чтобы сформировать список во время разработки формы, нужно в окне Object Inspector выбрать свойство Items, щелкнуть на кнопке активизации редактора списка строк (кнопка с тремя точками) и ввести элементы списка (рис. 77).

Рис. 77. Ввод списка для компонента ComboBox2 во время создания формы приложения

Полный текст программы приведен в листинге 25.

Дата добавления: 2014-12-25