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 listview高速添加数据

Delphi 获取指定当前目录下指定文件扩展名所有文件

Delphi 中的自动引用计数使用规则

Delphi 获取某个页面所有的链接

Delphi tlistview控件里添加背景色

Delphi报警声音 beep、messagebeep 和 windows.beep

Delphi wininet带进度下载http文件

Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法

Delphi setprivilege 提权代码

Delphi 设置打印机 纸张大小! 也可以获取纸张大小

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

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