请问如何将一个结构的内容保存到DAT文件中？

Question

如题！谢谢

Answer 1

  type 
    Tre = Record
     a : integer;
     B : integer;
  end; procedure Test; 
 var
  sss : TFileStream;
  record1 : Tre;
 begin
  try 
     Record1.a := 10;
     Record1.b := 100;
     sss := TFileStream.Create('11.dat', fmOpenReadWrite or fmCreate); 
     sss.Seek(0, soFromEnd);// 
     sss.Write(record1, sizeof(record1));      finally 
     sss.Free; 
   end;
 end; 直接手寫的，可能有筆誤，大致操作就可翠這樣。

Answer 2

type 
    Trec = Record
     a : integer;
     B : integer;
  end;
var
  mfile: file of trec;
begin
  assignfile(mfile,FName);
  rewrite(mfile);
  write(mfile,rec);
  closefile(mfile);
end;