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 tstringlist的用法

Delphi tms web core 嵌入js代码

Delphi 一句话获取文件的最新修改时间

Delphi thttprio 控件调用webservice超时问题

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

Delphi二值图像腐蚀算法

Delphi xe 枚举指定目录及子目录下的所有文件

Delphi yesterday、today、tomorrow - 昨天、今天、明天

Delphi 安装fastreport4.8.xx

Delphi 多种编码转换

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

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