из record в stringgrid

[roma88gruzd88]

Здравствуйте. Возник вопрос.
Есть запись

type
  stipendia = record
    index: string[7];
    fam: string[20];
    marker: array[1..5] of integer;
    ob: integer;
end;

в нее из stringgrid записываются данные

procedure TForm1.Button1Click(Sender: TObject);
Var f: file of stipendia;
    s:stipendia;
    i:Integer;
begin
  AssignFile (f,'file.txt');
  Rewrite (f);
  For i:=1 to StringGrid1.RowCount-1 do
     Begin
       s.index:=StringGrid1.Cells[0,i];
       s.fam:=StringGrid1.Cells[1,i];
       s.marker[1]:=StrToInt(StringGrid1.Cells[2,i]);
       s.marker[2]:=StrToInt(StringGrid1.Cells[3,i]);
       s.marker[3]:=StrToInt(StringGrid1.Cells[4,i]);
       s.marker[4]:=StrToInt(StringGrid1.Cells[5,i]);
       s.marker[5]:=StrToInt(StringGrid1.Cells[6,i]);
       s.ob:=StrToInt(StringGrid1.Cells[7,i]);
       Write (f,s);
     end;
  CloseFile (f);
  ShowMessage ('Записано');
end;

а теперь вопрос, как из record-a записи вывести обратно в stringgrid????

Заранее всем спасибо)))

[Serge_Bliznykov]

примерно так:

procedure TForm1.Button1Click(Sender: TObject);
Var f: file of stipendia;
    s:stipendia;
    i,j:Integer;
begin
  AssignFile (f,'file.txt');
  Reset(f);
  StringGrid1.RowCount := FileSize(f)+1;
  For i:=1 to StringGrid1.RowCount-1 do
     Begin
       Read(f, s);
       StringGrid1.Cells[0,i] := s.index;
       StringGrid1.Cells[1,i] := s.fam;
       for j:=1 to 5 do
           StringGrid1.Cells[1+j,i] := IntToStr(s.marker[j]);
       StringGrid1.Cells[7,i]:=IntToStr(s.ob);
     end;
  CloseFile (f);
  ShowMessage ('Прочитано');
end;

писал в браузере. код не проверял.

[Человек_Борща]

Тема уже была. Зачем вы 2 раза её создаете?