readln怎么把整个文件都读入了？

[szzgqzzz]

我声明了F:TextFile, 然后reset(F, 'test.c'); 再readln(F, s);其中s:string变量，怎么就把整个文件读入s了？我只要读入一行！
（test.c文件中每行都是以$0D$0A结束的，我用UltraEdit看过了！）

[ch81]

readln确实是读一行数据的
你用memo1.lines.loadfromtext('test.c');
看读出来的是不是一行的，如果还是一行，
就是你的文件有问题。

[szzgqzzz]

cb81: 我的文件会有什么问题才引发这种现象？

[ch81]

应该是文件行结束符不对，我想！
但是你说#13#10好像没错！
你把文件发给我吧，我试试：[e-mail]

[billyshen]

你试试看用一个listbox做实验
listbox1.items.add(s);
看显示出来的是不是一行，还是所有的文本内容？

[Xb_xj]

Reset(F,'aaa.c');
readln(f,s);
Memo1.Text:=Memo1.Text+s;
closeFile(F);
试一试

[szzgqzzz]

???

[szzgqzzz]

我怎么只能看到两张贴子，急死我了！！！！

[l_walker]

你是文件是不是没换行啊？？？？！

[smile_and_smile]

这是文件的问题，但是还有方法可以处理该文件。
偶也喷到一样的问题，最后我用读取文件中各信息间的分割符的方法得到了相关数据。

[wuyh78]

别急，我前不久做文件耦合时也出现类似问题的，确实是读一行就把总个数据给读完了，那也不要紧，你读出总文件后，再用数组存储你人为的行（比如两个$0D$0A间就是一个行数据），先记住每个$0D$0A的位置，再用copy函数处理，虽然显得笨拙，但却实用就足够了……

[jll]

根据我的经验，是你的Reset语句有问题。建议采用以下方式：
var
F:TestFile;
S:string;
begin
AssignFile(F,'Test.c');
Reset(F);
Readln(F,S);
CloseFile(F);
end;