各位大虾，请帮忙 分析.dat的问题

Question

文件头+数据
以二进方式存取！

Answer 1

以二进制方式读入，然后写入数据库就是

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  FileCtrlHead:TFileCtrlHead; //文件头格式 已知
  info_ztryDJ:Tinfo_ztryDJ;  //数据格式 已知
  Datafile:file of Tinfo_ztryDJ;
begin
  AssignFile(datafile,'a.dat');  // 文件头怎么处理呢？
  reset(datafile);
  try
    if not eof(datafile) then  begin
      read(datafile,info_ztryDJ);
      ........
      savetodb;
      ..........
    end;
  finally
    closefile(datafile);
  end;
end;