如何判断RecordStream记录有没有到结尾？高手求救~~！！

Question

var
  prsnrc: Tpersonrec;
  RcStrm: TrecordStream;
Prsnrc、RcStrm都已经创建。
///////////////////////////////////////Procedure TgmListFrm.WriteGmList;
Var
  listitem:TListItem;
Begin
  With LvGmList Do
  Begin
     With Prsnrc do
     Begin
       Listitem :=Items.Add;
       Listitem.Caption := Trim(Fdate);
       Listitem.ImageIndex :=19;
       Listitem.SubItems.Add(Trim(FSize));
       Listitem.SubItems.Add(Trim(FPath));
     end;
  end;
end;procedure TGmlistFrm.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  inherited;
   rcStrm.ReadRec(prsnrc);
   RcStrm.First ;
   //showmessage(IntTostr(Rcstrm.numrecs));
   For i:=0 to RcStrm.NumRecs -1 do
   begin
   rcStrm.NextRec ;
   WriteGmList;
   end;
end;现在问题出在RCStrm.nextRec处。如何知道Rcstrm的记录有没有到结尾呢？
是用Seek吗？但SEEK的用法我还搞不清楚。
请救各位了。

Answer 1

begin
 while not rcStrm.eof do
 begin
   rcStrm.NextRec ;
   WriteGmList;
 end;
end;

Answer 2

zhlwyy(海龙) ( ) 信誉：100
while not rcStrm.eof do RcStrm.eof没有这个属性，我试了N多次了。这位大哥。还没有哪位给点提示啊？

Answer 3

IF (lf_stream.CurRec < lf_stream.NumRecs ) then lf_stream.NextRec ELSE BREAK;