Типизированные файла

[Stilet]

Вот как выглядит все задание

Типичный диотизм совобразования...
Теперь я скажу: "Считывай как я показал выше через Copy() прямо в StringGrid"

[min@y™]

это ж текстовый файл, а не бинарник, хотя в данном случае его можно интерпретировать, как типизированный.

[Xo6ut]

Делать все через записи?

[min@y™]

Сообщение от Xo6ut

Делать все через записи?

это ты к кому обращаешься?

[Xo6ut]

Это у вас игра такая? я не пойму просто к чему вы задаете этот глупый вопрос

[Stilet]

Это у вас игра такая?

Ага. Называется "Угадай что хочет ТС".
Я тебе уже два варианта решения представил - какие-то выводы ты сделал?

[Xo6ut]

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type
   StudentRecord = Record
   s_name: String[20];
    s_ball: String[20];
      s_object: String[20];
        s_group:String[20];
        end;
var
  Form2: TForm2;
     Student:array[1..1000] of StudentRecord;
   f:file of studentrecord;
   i:integer;
implementation


{$R *.dfm}


procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  assignfile(f, 'C:\Информатика\Задания к лаб работам по Информатике\TEMA5\Session.txt');
   reset(f);
   while not eof(f) do
begin
       for i := 1 to 17 do
   read(f,Student[i])  ;
   closefile(f);

end;
       memo1.Lines.Add(Student[i].s_name);
 end;

end.

Выдает ошибку read beyond the file

[type_Oleg]

Попробуйте выбросить вот это

for i := 1 to 17 do

Зачем вы 17 раз пытаетесь прочитать запись, если записей у вас всего 10.
У вас же есть while, она и будет перебирать пока не кончатся все записи/студенты.
И вот это

closefile(f);

надо делать 1 раз, после выхода из while. Поэтому перенесите его.

И потом, вы что изменили свой файл Session.txt? У вас StudentRecord какой-то не такой.

[Xo6ut]

Просто мне нужно, чтобы оно вывело мне всех студентов
Иванов И.И. ФМ-1-02 Высшая математика 4

Петров П.П.      ФМ-1-02 Высшая математика   3
Сидоров С.С.     ФМ-2-02 Физика              3
Иванов И.И.      ФМ-1-02 Физика              5
Петров П.П.      ФМ-1-02 Физика              4
Иванов И.И.      ФМ-1-02 Информатика         4
Сидоров С.С.     ФМ-2-02 Информатика         5
Кузнецов К.К.    ФМ-2-02 Физика              3
Петров П.П.      ФМ-1-02 Философия           4
Кацман К.К.      ФМ-3-02 Философия           5

А я не знаю как это сделать

[type_Oleg]

Если вы не изменяли свой файл Session.txt, то type StudentRecord напишите как вам Stilet советовал, вот тут.
И попробуйте пока вот так

 procedure TForm2.BitBtn1Click(Sender: TObject);
var sz:Integer;
begin
  assignfile(f, 'C:\Информатика\Задания к лаб работам по Информатике\TEMA5\Session.txt');
   reset(f);
   sz:=FileSize(f);
   for i:=1 to sz
    begin
     read(f,Student[i]);
     memo1.Lines.Add(Student[i].ball); // пока только это, проверить
    end;
 closefile(f);
 end;
end.

PS Там в файле кстати 2 лишних байта в конце ( перевод строки), поэтому длина 482 вместо 480. Но вроде должно сработать.