如何在非textfile中移动记录位置？

Question

用seek()函数,祥看DELPHI的在线帮助文档.

Answer 1

seek不行啊
var
  ful:file of tuserlist;
   tul:tuserlist;
   i:longint;
   const filename='d:\delphi\fastnet\mail\userid\thyong.mil';
begin
  assignfile(ful,fileName);
  reset(ful);
  ShowMessage(IntToStr(filesize(ful)));
  try
  begin
    read(ful,tul);
    seek(ful,2);
  end
  finally
    closefile(ful) ;
  end;
  edit1.Text:=tul.fUserID;
  edit2.Text:=tul.fUserPassword;
  edit3.Text:=tul.fMailPassword;
end;seek中的pos参数如何指定，是记录数还是字节数？
我还是过100,但edit1,edit2还是第一条记录

Answer 2

seek的是记录数
而且定义类型时使用 TUserList=Packed record