请问对于自定义的记录文件，怎样读写比较方便？谢谢！

Question

目前我只知道可以用fileread和filewrite，可是我的文件总共就一个记录，这样好像不是很方便。请问高手有没有办法一次完成记录的读写？？

Answer 1

有。
在<Delphi5开发人员指南>里面有讲到，是通过自己定义一个TRecordStream的类(如下)来实现的。  TRecStream = class(TFileStream)
  private
    function GetNumRecs: longint;
    function GetCurRec: longint;
    procedure SetCurRec(RecNo: longint);
  protected
    function GetRecSize: longint; virtual;
  public
    function SeekRec(RecNo: longint; Origin: word): longint;
    function WriteRec(const Rec): longint;
    function AppendRec(const Rec): longint;
    function ReadRec(var Rec): longint;
    procedure First;
    procedure Last;
    procedure NextRec;
    procedure PreviouRec;
    property NumRecs: longint read GetNumRecs;
    property CurRec: longint read GetCurRec write SetCurRec;
  end;

Answer 2

我觉得如果总共只有一条记录的话，可以考虑用读写Ini文件来实现。在Delphi中有一个专门处理INI的类，使用非常方便。

Answer 3

先用filesize读出文件大小
再用fileread将整个文件读出来。