[Valentinich]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

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: Пользуемся тегами!

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