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