Stringgrid и типизированный файл

[Таир]

Задача приблизительно такова, с помощью stringgrid'a создать типизированный файл, затем из этого файла считать инфу и заполнить другую таблицу(stringgrid2 в этой же форме).

Вот создаю например файл

procedure TForm1.Button1Click(Sender: TObject);
Type MyRec=Record
           Name:string[10];
           Surname:string[10];
           Age:integer;
           city:string[10];
           street:string[10];
        End;
Var MyVar:MyRec;  f:File of MyRec;
begin
 
AssignFile(f,'c:\MyFile.dat');
Rewrite(f);
 
for  i:=1 to stringgrid1.rowCount-1 do begin
MyVar.Name:=stringgrid1.Cells[1,i];
MyVar.Surname:=stringgrid1.Cells[2,i];
MyVar.Age:=strtoint(stringgrid1.Cells[3,i]);
MyVar.City:=stringgrid1.Cells[4,i];
MyVar.Street:=stringgrid1.Cells[5,i];  
end;
 
Write(f,MyVar);
Closefile(f);
end;

Как считать данные из этого файла и вписать их в stringgrid2?

[Serge_Bliznykov]

начнём сначала...
у Вас ошибка в записи. Запишется только ОДНА (последняя строчка)
надо так:

AssignFile(f,'c:\MyFile.dat');
Rewrite(f);
 
for  i:=1 to stringgrid1.rowCount-1 do begin
  MyVar.Name:=stringgrid1.Cells[1,i];
  MyVar.Surname:=stringgrid1.Cells[2,i];
  MyVar.Age:=strtoint(stringgrid1.Cells[3,i]);
  MyVar.City:=stringgrid1.Cells[4,i];
  MyVar.Street:=stringgrid1.Cells[5,i];  
  Write(f,MyVar);
end;
Closefile(f);

это с учётом того, что Вы понимаете, что записи в StringGrid нумеруются от нуля. Раз Вы читаете начиная с 1, значит первая строчка у Вас отведена под заголовки.. так?

читать так же просто, как и писать!

  AssignFile(f,'c:\MyFile.dat');
  Reset(f);

  i := FileSize(f); {определим количество записей в файле}

  {установим нужный размер СтрингГрида }
  stringgrid1.rowCount := i + 1; // +1 - строчка на заголовки
 
  for  i:=1 to stringgrid1.rowCount-1 do begin
     Read(f, MyVar);
     stringgrid1.Cells[1,i] := MyVar.Name;
     stringgrid1.Cells[2,i] := MyVar.Surname;
     stringgrid1.Cells[3,i] := IntToStr(MyVar.Age);
     stringgrid1.Cells[4,i] := MyVar.City;
     stringgrid1.Cells[5,i] := MyVar.Street;  
  end;
  Closefile(f);

[Таир]

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