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

[Xo6ut]

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    StringGrid1: TStringGrid;
    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;
   k,i,j:integer;
   st:student;
   colcount:integer;
   rowcount:integer;
implementation


{$R *.dfm}




procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  with   StringGrid1    do begin
  Cells[0,0] := '№/№';
  Cells[1,0] := 'Фамилия';
  Cells[2,0] := 'Группа';
  Cells[3,0] := 'Предмет';
  Cells[4,0] := 'Оценка';

  colcount:=5;
  rowcount:=11;
  end;
 assignfile(f, 'C:\Информатика\Задания к лаб работам по Информатике\TEMA5\Session.txt');
   reset(f);
     i:=0;
inc(i);
  while not eof(f) do
  begin
    readln(f,s);
    st.fio := copy(s, 1, 17);
    st.group := copy(s, 18, 8);
    st.discipline := copy(s, 26, 20);
    st.ozenka := ord(s[46]) - 48;
  StringGrid1.Cells[1,I]:=st.fio;
  StringGrid1.Cells[2,I]:=st.group ;
  StringGrid1.Cells[3,I]:= st.discipline;
  StringGrid1.Cells[4,I]:=inttostr(st.ozenka);

 end;


       end;


end.

Какой цикл надо записать, чтобы все имена заносились в таблицу, а не только последнее?

[type_Oleg]

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

....
Какой цикл надо записать, чтобы все имена заносились в таблицу, а не только последнее?

Никакой не поможет.

Вы не реагируете на вопросы.
Повторяю: тип записи type Student, описанный у вас , не соответствует вашему файлу.

[Stilet]

а не только последнее?

Все просто:

  while not eof(f) do
  begin
    readln(f,s);
  StringGrid1.Cells[1,I]:=copy(s, 1, 17);
  StringGrid1.Cells[2,I]:=copy(s, 18, 8);
  StringGrid1.Cells[3,I]:= copy(s, 26, 20);
  StringGrid1.Cells[4,I]:= s[46];
inc(i);
 end;

Это тебя запутает еще больше, и надеюсь убедит всетки начать изучение Делфи не с Делфи, а с классического паскаля. Рано тебе еще к оконным проектам переходить.

тип записи type Student, описанный у вас , не соответствует вашему файлу.

А он решил пойти вторым путем - парсить строку. В этом случае тип записи вообще не нужен.

[min@y™]

Вы не реагируете на вопросы

измором берёт! наверное, учится на коллектора.
заколебёт настолько, что кто-нить напишет ему лабу, чтоб только остал.