Delphi. Типизированные/нетипизированные Файлы.

[dzhI]

Задание было таково: Сведения о студенте состоят из его фамилии, специальности и шифра группы(год поступления, номер группы).Дан файл f, содержащий сведения об учениках. Файл f содержит расширенную информацию, которая дополнена средним баллом студента в последней сессии. Выяснить, сколько студентов имеют средний балл выше 4.

Ниже программа, которая была сделана. Суть в том что она работает только на одного человека, и мне неизвестно, почему читается только один, нужно сделать список, в чем проблема?!

var
  Form1: TForm1;
  sp:array[1..50]of Tstud;
  n:integer;
  f:file of Tstud;
implementation

{$R *.dfm}



procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8 :  ;
else key := Chr(0);
end;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8 :  ;
else key := Chr(0);
end;
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8,',' :  ;
else key := Chr(0);
end;
end;
//создание файла записей
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
assignfile(f,'stud.dat');
rewrite(f);
n:=StrToInt(Edit7.Text);
for i:=1 to n do
  begin
    sp[i].fam:=Edit1.Text;
    Edit1.Text:='';      //очищаем поле
    Edit2.SetFocus;       //передаем фокус в Эдит2
    sp[i].spc:=Edit2.Text;
    Edit2.Text:='';      //очищаем поле
    Edit3.SetFocus;       //передаем фокус в Эдит3
    sp[i].shf.god:=StrToInt(Edit3.Text);
    Edit3.Text:='';      //очищаем поле
    Edit4.SetFocus;       //передаем фокус в Эдит4
    sp[i].shf.nom:=StrToInt(Edit4.Text);
    Edit4.Text:='';      //очищаем поле
    Edit5.SetFocus;       //передаем фокус в Эдит5
    sp[i].srb:=StrToFloat(Edit5.Text);
    Edit5.Text:='';      //очищаем поле
    Edit1.SetFocus;       //передаем фокус в Эдит1
    write(f,sp[i]);       //вводим данные в файл
  end;
closefile(f);
end;
//вывод данных в таблицу и подсчет по условию
procedure TForm1.Button2Click(Sender: TObject);
var i,k:byte;
begin
StringGrid1.ColCount:=6;
StringGrid1.RowCount:=n+1;
StringGrid1.Cells[1,0]:='Фамилия';
StringGrid1.Cells[1,0]:='Специальность';
StringGrid1.Cells[1,0]:='Год поступления';
StringGrid1.Cells[1,0]:='Номер группы';
StringGrid1.Cells[1,0]:='Средний балл';
assignfile(f,'stud.dat');
reset(f);
k:=0;
for i:=1 to n do
  begin
    read(f,sp[i]);
    StringGrid1.Cells[0,i]:=IntToStr(i);
    StringGrid1.Cells[1,i]:=sp[i].fam;
    StringGrid1.Cells[2,i]:=sp[i].spc;
    StringGrid1.Cells[3,i]:=IntToStr(sp[i].shf.god);
    StringGrid1.Cells[4,i]:=IntToStr(sp[i].shf.nom);
    StringGrid1.Cells[5,i]:=FloatToStrF(sp[i].srb,ffFixed,5,2);
    if sp[i].srb>4 then inc(k);
  end;
Edit6.Text:='Средний балл больше 4 имеют '+IntToStr(k)+' чел.';
end;

end.

[Dj_smart]

Возможно на момент чтения n=1 поэтому и один:

procedure TForm1.Button2Click(Sender: TObject);
var i,k:byte;
begin
StringGrid1.ColCount:=6;
StringGrid1.RowCount:=n+1;
StringGrid1.Cells[1,0]:='Фамилия';
StringGrid1.Cells[1,0]:='Специальность';
StringGrid1.Cells[1,0]:='Год поступления';
StringGrid1.Cells[1,0]:='Номер группы';
StringGrid1.Cells[1,0]:='Средний балл';
assignfile(f,'stud.dat');
reset(f);
k:=0;
repeat
    read(f,sp[i]);
    StringGrid1.Cells[0,i]:=IntToStr(i);
    StringGrid1.Cells[1,i]:=sp[i].fam;
    StringGrid1.Cells[2,i]:=sp[i].spc;
    StringGrid1.Cells[3,i]:=IntToStr(sp[i].shf.god);
    StringGrid1.Cells[4,i]:=IntToStr(sp[i].shf.nom);
    StringGrid1.Cells[5,i]:=FloatToStrF(sp[i].srb,ffFixed,5,2);
    if sp[i].srb>4 then inc(k);
until eof(f);
closefile(f); // файл забыли закрыть
Edit6.Text:='Средний балл больше 4 имеют '+IntToStr(k)+' чел.';
end;

[Саня]

//создание файла записей
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
assignfile(f,'stud.dat');
rewrite(f);
n:=StrToInt(Edit7.Text);
for i:=1 to n do
  begin
    sp[i].fam:=Edit1.Text;
    Edit1.Text:='';      //очищаем поле
    Edit2.SetFocus;       //передаем фокус в Эдит2
    sp[i].spc:=Edit2.Text;
    Edit2.Text:='';      //очищаем поле
    Edit3.SetFocus;       //передаем фокус в Эдит3
    sp[i].shf.god:=StrToInt(Edit3.Text);
    Edit3.Text:='';      //очищаем поле
    Edit4.SetFocus;       //передаем фокус в Эдит4
    sp[i].shf.nom:=StrToInt(Edit4.Text);
    Edit4.Text:='';      //очищаем поле
    Edit5.SetFocus;       //передаем фокус в Эдит5
    sp[i].srb:=StrToFloat(Edit5.Text);
    Edit5.Text:='';      //очищаем поле
    Edit1.SetFocus;       //передаем фокус в Эдит1
    write(f,sp[i]);       //вводим данные в файл
  end;
closefile(f);
end;

А зачем ты Edit'ы в цикле очищаешь?
На втором проходе цикла они все пусты и пустую строку в целое перевести довольно трудно.
Тебе сначала нужно заполнить sp, а потом записывать.
Dj_smart прав, n в Button2Click неопределена.

[Саня]

Немного подправил проект. Коменты оставил, где правил. Для работы с файлом прога полностью рабочая, а ввод данных оставляю тебе.

Штраф нужен?
Вы наплодили 4 поста подряд!
У вас со зрением проблемы? Вы кнопку "Правка" не видите?

Со зрением у меня нормально. Штраф не нужен.
Только в чём мой "смертный грех"?
Несколько постов подряд... Исхожу из собственной логики просмотра сообщений: открыл тему, если новых постов не было, значит новой информации в теме нет.
И вообще. Мне кажется о таких вещах нужно писать в правилах. Там я такого что-то не видел.

[dzhI]

Саня, Спасибо.
Вот такой вопрос, почему при вводе количества студентов, он выводит мне 10 одинаковых к примеру.. Количество "4" считает правильно, но только при добавлении след 11-го студента она заменяет эти все десять на одного а не добавляет вновь его?!

[puporev]

Вот переделал, сейчас нормально работает.

[Саня]

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

Саня, Спасибо.
Вот такой вопрос, почему при вводе количества студентов, он выводит мне 10 одинаковых к примеру.. Количество "4" считает правильно, но только при добавлении след 11-го студента она заменяет эти все десять на одного а не добавляет вновь его?!

Я уже говорил, нужно сначала заполнить массив записей. Для этого я бы сделал отдельную кнопочку, при клике по которой данные из Edit'ов собираются в следующий элемент массива.
А потом при клике по "Записать данные", записываем массив в файл.
А так, для примера, в Button2Click в массив записываются одни и те же данные из Edit'ов.
Доработай!

[dzhI]

Огромное спасибо, разобрался!