Delphi的TStreamReader逐行读取文本文件

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);
var
  reader: TStreamReader;
  line: String;
begin
  reader := TStreamReader.Create('新建文本文档.txt', TEncoding.Default);
  while not reader.EndOfStream do
  begin
   Memo1.Lines.Add (reader.ReadLine);
  end;
  reader.Free;

end;
 

相关阅读 >>

Delphi (vcl及fmx[firemonkey])启动时的欢迎窗口实现代码

Delphi getfilehashmd5

Delphi goto语句用法

Delphi 判断目录是否有写入权限

Delphi 通用压缩单元

Delphi如何把一个文本列表添加到tlistbox并避免重复项

Delphi setlength 内存释放总结

Delphi 静态数组的定义方法

Delphi 中文urlencode的简单办法

获取剪贴板文字内容的代码

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

转载请注明出处：木庄网络博客 » Delphi的TStreamReader逐行读取文本文件