Delphi 一行一行读取txt文件

2017-06-27 20:28:22来源:CSDN作者:Nevermore_anger人点击

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;

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台