求一个用记录型读取text文件的实例~~

Delphi(Pascal) code

type
  Tuserrec = record
    uname: string[20];
    password: string[20];
  end;

procedure TForm1.btn3Click(Sender: TObject);
var
  f: File of Tuserrec;
  u: Tuserrec;
begin
  AssignFile(f,'test.txt');
  Reset(f);
  read(f,u);
  ShowMessage(u.uname);
end;

错误: read beyond end of file

文本文件就一行内容
admin {tab} admin

读取的内容超出了文件长度

uname: string[20];
password: string[20];
这结构体有40个字节，你的文件才多大
修改方法，整行读进来字符串截取分别处理吧{tab}之前是用户名之后是密码