![Старый](images/statusicon/post_old.gif)
25.10.2010, 15:24
|
Прохожий
|
|
Регистрация: 26.09.2010
Сообщения: 22
Репутация: 10
|
|
Проблема в 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: Пользуемся тегами!
В ЧЁМ проблема ? заполняется не вся таблица.
???
Последний раз редактировалось Admin, 25.10.2010 в 15:29.
|