Лабораторная 8

1. Определить запись

   
   RStudent=record
    Fio:string[50]; //фамилия-имя-отчество студента
    NumZ:string[10]; // номер ст.билета студента
    Group:string[5]; // номер группы
   end; 
   
   

   содержимое которой будет сохраняться в файле вида file of RStudent. Для обработки этого файла создать класс TStudent следующего вида:

   
   TStudent=class
    private
    ...
    public
     constructor Create(fn:string; pos:word); 
       создает экземпляр класса
       fn - имя файла, в котором хранятся студенты (file of RStudent)
       pos - позиция в этом файле
       Если файл не существует - создает его. 
       Если позиция не существует - заполняет файл пустыми записями вплоть до требуемой позиции 
     property Position:word read ... write ...; // позиция студента в файле
     property Last:boolean read ... write ...; // возвр. true, если студент - последний в файле
     property First:boolean read ... write ...; // возвр. true, если студент - первый в файле
     property Fio:string read ... write ...; //фамилия-имя-отчество студента
     property NumZ:string read ... write ...; // номер ст.билета студента
     property Group:string read ... write ...; // номер группы
   end;
   
   

2. Разработать консольную программу, заполняющую файл информацией об N студентах. Разработать вторую программу, которая, используя экземпляр(ы) класса TStudent, выводит на экран информацию о студентах, сохраненных в файле первой программой

Скачать пример1 (исполняемый .exe-файл)
Скачать пример2 (исполняемый .exe-файл)