Delphi TFileStream 逐行读取文本

本文整理自网络，侵删。

 
function ReadTXTInfo: String;
var
  Ch: Char;
  FS: TFileStream;
begin
  Result := '';
  FS := TFileStream.Create('animals.txt', fmOpenRead);
  try
    while FS.Read(Ch, 1) = 1 do 
      Write(Ch);
    Writeln;
  finally
    FS.DisposeOf;
  end;
end;
 

相关阅读 >>

Delphi 用idhttp得到本机外网ip

Delphi在memo按键实现全选

Delphi cxgrid:动态设计统计功能

Delphi richedit1 设置字体

Delphi 获取北京时间

Delphi如何计算一个文件目录的大小

Delphi发送邮件函数

Delphi获取13位格林治时间实现方法

Delphi xe 与plc通讯（intcpserver 二进制）

Delphi中获取光标句柄代码（包含获取当前线程id）

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

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