Delphi 一行一行读取txt文件

Delphi中一行一行读取txt文件内容有两个高效的方法。

1、使用Readln（）方法。

2、使用TStringList。

以读取D:\delphi_work\shijian.txt文件为例，具体代码如下：

1、

procedure TForm1.Button2Click(Sender: TObject);
var
txtFile:TextFile;
s:String;
begin
AssignFile(txtFile,'D:\delphi_work\shijian.txt');
Reset(txtFile);
while not eof(txtFile) do
begin
readln(txtFile,s);//读取一行保存到字符串s中
Memo1.Lines.Add(s);//在Memo1中显示
end;
end;

2、

procedure TForm1.Button3Click(Sender: TObject);
var
txtlist:TStringList;
i:integer;
begin
txtlist:=TStringList.Create;
txtList.LoadFromFile('D:\delphi_work\shijian.txt');
for i:=0  to txtlist.Count-1 do
begin
Memo1.Lines.Add(txtlist.Strings[i]);
end;
end;