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

 

相关阅读 >>

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi 从资源文件中加载字符

Delphi-dbgrid取得所有表中的值

Delphi dbgrid上设置选择项

Delphi 利用http的post方法做个在线翻译的小工

Delphi控制word添加多行文字

用Delphi编写聊天程序

Delphi 如何在richedit控件里加入链接

一些不常用的且功能相当有用的Delphi函数

Delphi 列出dbgrideh被选中的值

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

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