Кусочек кода из Delphi в С++ Builer)

 Zapis = Record
           Name:String[50];
          rec:integer;
         end;
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
     Procedure LoadFile;
    { Private declarations }
  public
    Rec:Integer;
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.LoadFile;
Var f:File of Zapis;
   st:Zapis;
   i:integer;
begin
  i:=0;
  AssignFile (f,'record.dat'); Reset (f);
  Repeat
    i:=i+1;
    Read (f,st);
    StringGrid1.RowCount:=i;
    StringGrid1.Cells[0,i-1]:=St.Name;
    StringGrid1.Cells[1,i-1]:=IntToStr(St.rec);
  Until Eof(f);
  CloseFile(f);
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm2.FormShow(Sender: TObject);
begin
  LoadFile;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
Var f:File Of Zapis;
   st:Zapis;
   i:integer;
begin
  AssignFile (f,'record.dat'); Rewrite (f);
  StringGrid1.RowCount:=  StringGrid1.RowCount+1;
  StringGrid1.Cells[0,StringGrid1.RowCount-1]:=Edit1.Text;
  StringGrid1.Cells[1,StringGrid1.RowCount-1]:=IntToStr(Rec);
  For i:=0 to StringGrid1.RowCount -1 do
    Begin
      st.Name:=StringGrid1.Cells[0,i];
      st.rec:=StrToInt(StringGrid1.Cells[1,i]);
      Write (f,st);
    end;
  CloseFile (f);
  Label2.Visible:=false;
  Edit1.Visible:=false;
  Button1.Visible:=false;
end;