频道分类

Delphi的TStreamReader逐行读取文本文件

作者:admin 来源: 日期:2019/11/12 12:29:23 人气: 标签:

 
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;