如何用readln函数一次只读出一行文本？？？？？急！！！！！！！

Question

使用字符串数组，定义一个长度，然后逐行读入s : string[15]
j : integer;
...try 
  while not eof(abc.txt) do
  begin
    readln(abc.txt,s,j)
    memo1.lines.add(s + inttostr(j));
  end;
finally
  closefile(abc.txt)
end;

Answer 1

var s:String;
    f:Text;...try
  assignfile(f,'c:\1.txt');
  reset(f);
  readln(f,s);
  Memo1.lines.add(s);
  while not eof(f) do
  begin
    readln(f,s);
    memo1.lines.add(s);
  end;
finally
  closefile(f);
end;

Answer 2

var
    i:integer;
    sl:Tstringlist;
begin
  sl:=TStringlist.Create;
  sl.LoadFromFile('c:\Netlog.txt');
  for i:=0 to sl.Count do
  showmessage(sl.Strings[i]);
  sl.Free;
end;

Answer 3

有点小毛病：应该是for i:=0 to sl.Count-1 do，修改的代码如下：var
    i:integer;
    sl:Tstringlist;
begin
  sl:=TStringlist.Create;
  sl.LoadFromFile('c:\Netlog.txt');
  for i:=0 to sl.Count-1 do
  showmessage(sl.Strings[i]);
  sl.Free;
end;