Question

delphi如何读取多行的txt文件？

function ReadTxt(FileName: String): String;
var
myfile: Textfile;
i, j: integer;
begin
Assignfile(myfile, FileName);
Reset(myfile);
i := 0;
while not eof(myfile) do
readln(myfile, result);
closefile(myfile);
end;

以上程序只能读取txt文件的第一行内容，如何读取txt的所有行的内容？

Answer 1

你这样始终读到最后一行的吧，你的result返回的值后面的把前面的覆盖了，你要在申请个变量，
while not eof(myfile) do
begin
readln(myfile, str);
result:=result+#13+str;
end;
这样子应该可以的