|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема в StringGrid e
табличка 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, 25.10.2010 в 15:29. |
#2
|
|||
|
|||
возможно проблема в твоих 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; |