var
a:string;
Myfile:textfile;
begin
assignfile(myfile,'addr.txt');
reset(myfile);
while 怎么判断是否读到文件尾部 do
begin
readln(myfile,a);
closefile(myfile);
showmessage(a);
end;
end;
a:string;
Myfile:textfile;
begin
assignfile(myfile,'addr.txt');
reset(myfile);
while 怎么判断是否读到文件尾部 do
begin
readln(myfile,a);
closefile(myfile);
showmessage(a);
end;
end;
begin
......
end;
begin
......
end;