Проект «Журнал группы»

Постановка задачи. В данном проекте составляется список студентов с возможностью его пополнения. Демонстрирует процесс добавления записи в файл, использование компонентов TComboBox и TRadioGroup (рис. 47).

Рис. 47. Проект «Журнал»

Реализация. Сначала создадим тип TStud для описания одной записи о студенте:

type TStud=record

fio: string[100]; // Фамилия, имя, отчество студента

group: string[20]; // группа

faculty: string[40]; // факультет

pol: string[10]; // пол

end;

Для записи фамилии используем компонент TEdit, для выбора группы и факультета – компоненты TComboBox. Для указания пола – компонент TRadioGroup. После того как все поля будут заполнены, надо записать эту запись в конец файла, если он существует, иначе создать новый файл.

var f: file of TStud; // Файл записей

stud: TStud;

// Щелчок на кнопке «Добавить»

procedure TForm1.Button1Click(Sender: TObject);

begin

with stud do

begin

fio := Edit1.Text;

group := ComboBox1.Text;

faculty := ComboBox2.Text;

case RadioGroup1.ItemIndex of

0: pol := 'Мужской';

1: pol := 'Женский';

end;

end;

AssignFile(f, 'student');

if not FileExists('student') then

begin

Rewrite(f); // Открыть файл для записи, т. е. создать

write(f, stud); // Записать содержимое полей в файл

end

else

begin

Reset(f); // Файл существует

Seek( f, FileSize(f)); // Указатель записи в конец файла

write(f, stud);

end;

CloseFile( f ); // Закрыть файл

end;

// Щелчок на кнопке «Просмотреть файл»

procedure TForm1.Button2Click(Sender: TObject);

var s:string;

begin

Memo1.Clear;

AssignFile(f, 'student');

Reset(f); // Открыть файл для чтения

while not eof(f) do

begin

Read(f,stud); // Прочитать одну запись

s:= stud.fio+' '+stud.group+' '+ stud.faculty+' '+ stud.pol;

Memo1.Lines.Add(s);

end;

end;

Задание. Создайте запись об игроке: имя, время игры, очки. Сделайте таблицу рекордов.