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 中窗体form显示在第二个显示器中的方法

Delphi nethttpclient1 数据库查询

Delphi getforegroundwindow 与 getactivewindow 的区别

Delphi2010读取mysql数据库text类型乱码的解决方案

Delphi xe7中获得os平台和版本

Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8

Delphi目录操作示例

Delphi 使richedit中的链接可以点击

Delphi设置dbgrid每列自动居中

Delphi mac地址转换字符串

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

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