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

求一个用记录型读取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

[解决办法]
admin admin并不像你看到的那样admin admin实际上是占13个字节tab回车和换行都要占1个字节，而结构体读取数据是按照字节块进行的，而不是一行行的方式读取的