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;

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

 

相关阅读 >>

Delphi 在memorystream查找字符串

Delphi中带缓存的数据更新技术

Delphi 实现批量文件名修改

Delphi一个基于wininet的http操作小函数

Delphi dbgrideh 的分组统计 datagrouping

Delphi中实现javascript gettime函数

Delphi �c 使用createoleobject后释放olevariant

indy断点续传

Delphi 复制文件到剪贴板

Delphi xe2 将域名转ip

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 一行一行读取txt文件