Файлы: запись/чтение

type
  TRec1 = record
     CusCode : integer;
     Name: string[20];
     Address: string[30];
  end;
 
var
  Form1: TForm1;
  F1: file of Trec1;
 
//Чтение 
procedure ReadRec1;
var R1:TRec1;
    i:integer;
begin
  AssignFile(F1,'File1.dat');
  Reset(F1);
  while not EOF(F1) do
    begin
      Read(F1,R1);
      for i:=1 to Form1.StringGrid1.RowCount-1 do
        begin
          Form1.StringGrid1.Cells[0,i]:=IntToStr(R1.CusCode);
          Form1.StringGrid1.Cells[1,i]:=R1.Name;
          Form1.StringGrid1.Cells[2,i]:=R1.Address;
        end;
    end;
  CloseFile(F1);
end;
 
//Запись
procedure WriteRec1;
var R1:TRec1; 
    i:integer;
begin
  AssignFile(F1,'File1.dat');
  ReWrite(F1);
  for i:=1 to Form1.StringGrid1.RowCount-1 do
    begin
      R1.CusCode:=StrToInt(Form1.StringGrid1.Cells[0,i]);
      R1.Name:=Form1.StringGrid1.Cells[1,i];
      R1.Address:=Form1.StringGrid1.Cells[2,i];
      Write(F1,R1);
    end;
  CloseFile(F1);
end;
 
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
  WriteRec1;
  ShowMessage('Done');
end;
 
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
  ReadRec1;
end;