我做了一个只能读一行文本的程序，想把它改成读多行的程序，如何做？？？

Question

我做了一个只能读一行文本的程序，想把它改成读多行的程序，如何做？？？
我做好的程序如下：
 var
    ra:text;
    str:string;
begin
assign(ra,'1.txt');
reset(ra);
readln(ra,str);
close(ra);
writeln(str);
end;

Answer 1

不要关闭文件
继续使用readln函数就可以了
通过EOF判断文件是否读完

Answer 2

如果文本文件中有多行，如何操作
－－－－－－
多行就一行一行读，读到空为止procedure TForm1.Button4Click(Sender: TObject);
var
  F: TextFile;
  str: string;
begin
  AssignFile(F,'1.txt');
  Reset(F);
  While not Eof(F) do
  begin
    ReadLn(F,str);
    ShowMessage(str);
  end;
  CloseFile(F);
end;

Answer 3

以下引用别人的代码供你参考
procedure TForm1.Button4Click(Sender: TObject);
var
  F: TextFile;
  str: string;
begin
  AssignFile(F,'1.txt');
  Reset(F);
  While not Eof(F) do
  begin
    ReadLn(F,str);
    ShowMessage(str);
  end;
  CloseFile(F);
end;

Answer 4

procedure TForm1.Button4Click(Sender: TObject);
var
  F: TextFile;
  st: TStringList;
  i: integer;
begin
  St := TStringList.Create;
  St.LoadFromFile('1.txt');
  for i:=0 to St.Count-1 do
    ShowMessage(st[i]);
  St.Free;
end;