有两种办法
如果是文件类型可羡侍以用eoln函数（如果下一兄渣吵个字符是行结束符或文件结束符，那么函数值为true，否则是false）判断，
如果一个字符梁春一个字符地读还可以判断输入的字符是不是chr(13)（就是一个回车符号）
while not eoln do
eoln为布尔型，当前光标谈旁雀位置如果不是启谨换行符，就为false，到了换行符就变为含早true
如果是文本文件的话可用while not eoln do
eoln为函数，用于判断文件中的一行是否结束。
如果是类型文件（file文件）的话，要注意类型文件中灶禅败没有行的概念，整个文件就是一行，故不能袭高用隐颤eoln函数。
二、三楼的同志知不知神轮道，while not eoln do 不用文件输入输出也可悄败以用，所以说，我建议你启瞎颤用while not eoln do，当然，他们说的chr（13）也没错。
这敬晌亏样写应亮神该可以:
read(n);
while n<>chr(13) do
begin
...
read(n);
end;
行尾的回车符就是谨唤chr(13),利用这一点。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024