[Valentinich]

табличка 6х10 я вбиваю в ячейки данные, и сохраняю:

Код:

var i:integer;
begin
if SaveDialog1.Execute then
begin
AssignFile(F,SaveDialog1.FileName);
Rewrite(F);
i:=1;
while stringGrid1.Cells[3,i]<>'' do
begin
r.fio:=stringGrid1.Cells[0,i];
r.gr:=stringGrid1.Cells[1,i];
r.faq:=stringGrid1.Cells[2,i];
r.predmet:=stringGrid1.Cells[3,i];
r.ocenka:=stringGrid1.Cells[4,i];
r.g02:=stringGrid1.Cells[5,i];
r.g2:=stringGrid1.Cells[6,i];
r.g03:=stringGrid1.Cells[7,i];
r.g04:=stringGrid1.Cells[8,i];
r.g05:=stringGrid1.Cells[9,i];
r.g06:=stringGrid1.Cells[10,i];
write(F,r);
i:=i+1
end;
 после чего мне нужно чтоб при открытии этого файла возвращались сохранённые файлы. я считываю их так:
var i: integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
Reset(F);
N:=0;
while not eof(f) do
begin
read(F,r);
stringGrid1.Cells[0,N+1]:=r.fio;
stringGrid1.Cells[1,N+1]:=r.gr;
stringGrid1.Cells[2,N+1]:=r.faq;
stringGrid1.Cells[3,N+1]:=r.predmet;
stringGrid1.Cells[4,N+1]:=r.ocenka;
stringGrid1.Cells[5,N+1]:=r.god02;
stringGrid1.Cells[6,N+1]:=r.g2;
stringGrid1.Cells[7,N+1]:=r.g03;
stringGrid1.Cells[8,N+1]:=r.g04;
stringGrid1.Cells[9,N+1]:=r.g05;
stringGrid1.Cells[10,N+1]:=r.g06;
N:=N+1;

Admin: Пользуемся тегами!

В ЧЁМ проблема ? заполняется не вся таблица.
???

[Athen]

возможно проблема в твоих N+1, программа каждый раз ее считает заново

Код:

while not eof(f) do
begin
inc(N);
read(F,r);
stringGrid1.Cells[0,N]:=r.fio;
stringGrid1.Cells[1,N]:=r.gr;
stringGrid1.Cells[2,N]:=r.faq;
stringGrid1.Cells[3,N]:=r.predmet;
stringGrid1.Cells[4,N]:=r.ocenka;
stringGrid1.Cells[5,N]:=r.god02;
stringGrid1.Cells[6,N]:=r.g2;
stringGrid1.Cells[7,N]:=r.g03;
stringGrid1.Cells[8,N]:=r.g04;
stringGrid1.Cells[9,N]:=r.g05;
stringGrid1.Cells[10,N]:=r.g06;
end;