请问怎样逐行读出文件的内容？(0分)

请帮助谢谢

如果是文本文件就太容易了。

var
F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;

end;

可参考下文：
var f:TextFile; //文本文件
buffer:String;
begin
Assign(f,'123.Txt');
Reset(f);
while not Eof(f) do
begin
Readln(f,buffer); //正好读出一行至内存变量buffer中
.....
end;
end;

readln不是用来读出第一行的么？ 可以把整个文件逐行读出么？