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;

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;

来源：https://blog.csdn.net/Nevermore_anger/article/details/73794448

推荐分享