View difference between Paste ID: mPZDtSGS and 3wcFpKau

 Type Stud=Record
      No: integer;
      name: string[12];
      Gr: string[8];
      o1, o2, o3: integer;
  end;
 Var sf: string;
 
 { TForm1 }
 procedure TabForFile;
 var i: integer;
 begin
   with Form1.StringGrid1 do
     begin
       ColCount:=6;
       RowCount:=50;
       ColWidths[0]:=20;
       ColWidths[1]:=120;
       ColWidths[2]:=80;
       ColWidths[3]:=40;
       ColWidths[4]:=40;
       ColWidths[5]:=40;
       Cells[0,0]:='№';
       Cells[1,0]:='Фамилия';
       Cells[2,0]:='Группа';
       Cells[3,0]:='Оценка 1';
       Cells[4,0]:='Оценка 2';
       Cells[5,0]:='Оценка 3';
       width:=25;
       for i:=0 to ColCount-1 do
         width:=width+ColWidths[i];
     end;
 end;
 
 Procedure ClearTab;
 var i, j: integer;
 begin
   with Form1.StringGrid1 do
   for i:=1 to RowCount-1 do
     if (Cells[0,i]<>'') then
       for j:=0 to ColCount-1 do
         begin
           Cells[j,i]:='';
         end;
 end;
 
 Procedure SaveToFileofStud;
 Var f: file of Stud;
     s: Stud;
     i: integer;
 begin
   Assignfile(f, sf);
   Rewrite(f);
   with Form1.StringGrid1 do
   for i:=1 to RowCount-1 do
   If (Cells[0,i]<>'') then
     begin
       s.No:=StrToInt(Cells[0,i]);
       s.name:=Cells[1,i];
       s.Gr:=Cells[2,i];
       s.o1:=StrToInt(Cells[3,i]);
       s.o2:=StrToInt(Cells[4,i]);
       s.o3:=StrToInt(Cells[5,i]);
       write(f,s);
     end;
   Closefile(f);
 end;
 
 procedure LoadFromFileOfStud;
 var f: file of stud;
     s: stud;
     i: integer;
 begin
   AssignFile(f, sf);
   Reset(f);
   with Form1.StringGrid1 do
   for i:=1 to filesize(f) do
     begin
       read(f,s);
       Cells[0,i]:=IntToStr(s.No);
       Cells[1,i]:=s.Name;
       Cells[2,i]:=s.Gr;
       Cells[3,i]:=IntToStr(s.o1);
       Cells[4,i]:=IntToStr(s.o2);
       Cells[5,i]:=IntToStr(s.o3);
     end;
   Closefile(f);
 end;
 
 
 procedure TForm1.MenuItem2Click(Sender: TObject);
 begin
   ClearTab;
   StringGrid1.Modified:=False;
   sf:='';
   Form1.Caption:='Form1';
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   TabForFile;
   sf:='';
   StringGrid1.Options:=StringGrid1.Options+[goEditing];
 end;
 
 procedure TForm1.MenuItem3Click(Sender: TObject);
 begin
   If StringGrid1.Modified then
     case MessageDlg('Текст был изменён' + #13 + 'Сохранить его?', mtConfirmation,[mbYes, mbNo, mbCancel],0) of
       mrYes: MenuItem5Click(self);
       mrNo: ;
       mrCancel: Exit;
     end;
   If openDialog1.Execute then
     begin
       sf:=OpenDialog1.FileName;
       LoadFromFileOfStud;
       StringGrid1.Modified:=False;
       Form1.Caption:='Form1' + sf;
     end;
 end;
 
 procedure TForm1.MenuItem4Click(Sender: TObject);
 begin
     if StringGrid1.Modified then
       case MessageDlg('Данные о студентах были изменены' + #13 + 'Сохранить их?', mtConfirmation,[mbYes, mbNo, mbCancel],0) of
         mrYes: MenuItem5Click(self);
         mrNo:;
         mrCancel: Exit;
       end;
     ClearTab;
     StringGrid1.Modified:=False;
     sf:='';
     Form1.Caption:='Form1';
 end;
 
 procedure TForm1.MenuItem5Click(Sender: TObject);
 begin
   if (sf='') then MenuItem5Click(self)
   else
     begin
       SaveToFileOfStud;
       StringGrid1.Modified:= False;
     end;
 end;
 
 procedure TForm1.MenuItem6Click(Sender: TObject);
 begin
   If SaveDialog1.Execute then
     begin
       sf:=SaveDialog1.FileName;
       SaveToFileofStud;
       StringGrid1.Modified:=false;
       Form1.Caption:='Form1'+sf;
     end;
 end;
 
 procedure TForm1.MenuItem7Click(Sender: TObject);
 begin
   If StringGrid1.Modified then
     case MessageDlg('Таблица была изменена' + #13 + 'Сохранить её?', mtConfirmation,[mbYes, mbNo, mbCancel],0) of
       mrYes: MenuItem5Click(self);
       mrNo: ;
       mrCancel: Exit;
     end;
   Close;
 end;
 
 procedure TForm1.MenuItem9Click(Sender: TObject);
 var s: stud;
     f, nf: file of Stud;
     im: string;
 begin
   // Подготавливаем файл для чтения
   Assignfile(f, sf);
   Reset(f);
   // Получаем имя нового файла
   im:=InPutBox('Введите имя нового файла','0','Список2');
   // Подготавливаем файл для записи
   Assignfile(nf, im);
   Rewrite(nf);
   // Записываем значения из первого файла в другой
   // Только те строки, которые не пустые и имеют чётный номер
   while not EOF(f) do
     begin
       read(f,s);
       if (s.No mod 2 = 0) then
         write(nf,s);
     end;
   // Закрывать надо ОБА файла
   Closefile(f);
   Closefile(nf);
   ClearTab;
   sf:=im;
   LoadFromFileOfStud;
 end;
 
 // в предыдущей процедуре ты создала файл, имя этого файла и осталось в этой процедуре
-var nf: file of stud;
+// новая процедура
 procedure TForm1.MenuItem10Click(Sender: TObject);
 var f: file of stud;
     s: stud;
     i: integer;
     j: integer;
-  AssignFile(nf, im);
+
-  Reset(nf);
+
-  i:=1;
+  // стандартный диалог перед выбором файла
-  while not Eof(nf) do
+
     case MessageDlg('Текст был изменён' + #13 + 'Сохранить его?', mtConfirmation,[mbYes, mbNo, mbCancel],0) of
-  begin
+
-    read(nf,s);
+
-    if i<4 then
+
     end;
 
   // Диалог выбора файла
   If openDialog1.Execute then
     begin
       // Получаем имя нужного файла
       sf:=OpenDialog1.FileName;
       // Файл для чтения
-    i:=i+1;
+      AssignFile(f, sf);
-  end;
+      Reset(f);
 
       i:=1;
       // Прверка нет ли конца файла и количество студентов,
       // которые уже были записаны в этом цикле в таблицу
       // Удобно тем что А - менее громоздко, и Б - студентов
       // В файле может быть меньше трёх, например 2, и тогда этот цикл просто выведет
       // двух студентов, иначе как в прошлой версии у тебя произошла бы либо ошибка либо зацикливание
       while (not Eof(nf) and i < 4) do
       with Form1.StringGrid1 do
         begin
           // Считываем одного студента
           read(nf,s);
           // Заполняем им таблицу
           Cells[0,i]:=IntToStr(s.No);
           Cells[1,i]:=s.Name;
           Cells[2,i]:=s.Gr;
           Cells[3,i]:=IntToStr(s.o1);
           Cells[4,i]:=IntToStr(s.o2);
           Cells[5,i]:=IntToStr(s.o3);
           //
           i:=i+1
         end;
       StringGrid1.Modified:=False;
       Form1.Caption:='Form1 FIRST 3 from ' + sf;
 
       // Закрываем файл
       Closefile(f);
     end;
 
 end;