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

[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 Student=Record
      FIO:string[17];
      group:string[8];
      discipline:string[20];
      ozenka:2..5;
     End;
var
  Form2: TForm2;
st:Student;
   f:file of student;
   i:integer;
   s:string;
implementation


{$R *.dfm}


procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  assignfile(f, 'C:\Информатика\Задания к лаб работам по Информатике\TEMA5\Session.txt');
   reset(f);
  while not eof(f) do
  begin
    readln(f,st);
    st.fio := copy(s, 1, 17);
    st.group := copy(s, 18, 8);
    st.discipline := copy(s, 26, 20);
    st.ozenka := ord(s[46]) - 48;
    // и тут уже выводишь содержимое st
  end;
       memo1.Lines.Add(st.fio);
 end;

end.

[Pascal Error] Unit2.pas(44): E2008 Incompatible types
на

 readln(f,st);

[min@y™]

st должна быть типа string, а f - типа textfile.
з.ы. когда же кончится эта эпидемия с древними паскалевскими файловыми функциями? напоминает сеть ФИДО!

[Xo6ut]

Но тогда вылезает куча таких же ошибок

[min@y™]

Но тогда вылезает куча таких же ошибок

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

[Xo6ut]

К вам обращаюсь

[min@y™]

К вам обращаюсь

ко мне?

вот как думаешь, зачем я цитирую предыдущее сообщение?

Но тогда вылезает куча таких же ошибок

правильно, так и быть должно.

readln(f,st);

процедура ReadLn() – только для текстовых файлов.

пока не изучишь матчасть, не напишешь ни одной программы.

посмотри, сколько ты угробил времени на задачу, время решения которой не более 15 минут с перекурами. зачем?
где оригинал задания?

[Xo6ut]

1. Открыть папку TEMА05 в своем каталоге на рабочем диске.
2. Обратиться к среде Delphi. Разработать программу-приложение, при запуске кото-
рой должна появляться форма с заголовком «Обработка данных о сдаче сессии» и с
меню, включающим следующие предложения:
3. «Ввод» - при выборе этого предложения должен производиться ввод из файла
SESSION.TXT сведений о сдаче экзаменационной сессии студентами, представ-
ленных в виде стандартных записей, каждая из которых содержит ФИО студента
(17 знаков), группу (8 знаков), название дисциплины (20 знаков), полученную на
экзамене оценку (1 знак).
4. «Студенты» - должны проводиться расчеты и формироваться таблица, обобщаю-
щая данные по каждому студенту и включающая 3 колонки: ФИО студента, число
сданных дисциплин, средний балл. Таблица должна отображаться на отдельной
форме.
5. «Дисциплины» - должны проводиться расчеты и формироваться таблица, обобща-
ющая данные по каждой дисциплине и включающая 3 колонки: название дисци-
плины, число студентов, сдавших экзамен по дисциплине, средний балл по данной
дисциплине. Таблица должна отображаться на отдельной форме.
6. «Выход» - завершение выполнения программы.
7. Присвоить проекту имя – производное от своей фамилии: 5 латинских букв + циф-
ра «5» + символы «pr». Присвоить модулям формы имя: те же 5 букв, что и в про-
екте + «5» + символы «uХ», где Х – порядковый номер модуля. Закрыть приложе-
ние.
8. Внести в приложение изменения и дополнения по указанию преподавателя.

Файл

Иванов И.И.      ФМ-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

[min@y™]

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

0x0d 0x0a

. тогда какой смысл работать с ним, как с типизированным бинарником?

[Xo6ut]

Minay,Можно так реализовать?

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 Student=Record
      FIO:string[17];
      group:string[8];
      discipline:string[20];
      ozenka:2..5;
     End;
var
  Form2: TForm2;
   s:string;
   f:textfile;
   i:integer;
   st:student;
implementation


{$R *.dfm}


procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  assignfile(f, 'C:\Информатика\Задания к лаб работам по Информатике\TEMA5\Session.txt');
   reset(f);
  while not eof(f) do
  begin
    readln(f,s);
    st.fio := copy(s, 1, 17);
    memo1.Lines.Add(st.fio);
    st.group := copy(s, 18, 8);
    memo1.Lines.Add(st.group);
    st.discipline := copy(s, 26, 20);
        memo1.Lines.Add(st.discipline);
    st.ozenka := ord(s[46]) - 48;
        memo1.Lines.Add(st.ozenka);


  end;

 end;

end.

[min@y™]

Можно так реализовать?

мне без разницы. ты задаёшь кучу вопросов, а мои вопросы игноришь.
если надо просто загрузить текстовый файл в мемо, то это в одну строку делается.
я просто никак не въеду, чего получить-то в реультате надо? зачем эти танцы с бубном и типизированными файлами? и задание – как-будто наркоман писал под кайфом.