如何获得一个文本的行数，并使用循环读出每行的字符串？谢谢。

Question

我查了一下以前的帖子，有朋友说读入TStringList里，TStringList.Count就是行数了。具体代码该如何写？是否使用什么控件？谢谢。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  strline:TStringList;
begin
  strline:=TStringList.Create;
  strline.LoadFromFile('C:\you.txt');
  showmessage(inttostr(strline.Count));
end;

Answer 2

获得一个文本的行数，并使用循环读出每行的字符串:procedure   TForm1.Button1Click(Sender:   TObject); 
var 
    strline:TStringList; 
begin 
    strline:=TStringList.Create; 
    strline.LoadFromFile('C:\任意欲读取的文本文件.txt');
    for i:=0 to  strline.Count-1 do
      showmessage(strline.strings[i]);//此句显示各行内容。
    showmessage('该文本一共的行数为：'+inttostr(strline.Count)); //显示总行数。
end;

Answer 3

忘了定义变量i了。更正一下：procedure TForm1.Button1Click(Sender: TObject);
var
 strline:TStringList;
 i:integer;//定义
begin
 strline:=TStringList.Create;
 strline.LoadFromFile('C:\1.txt');
 for i:=0 to strline.Count-1   do
  showmessage(strline.strings[i]);//此句显示各行内容。
 showmessage('该文本一共的行数为：'+inttostr(strline.Count));   //显示总行数。
end;