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 获取按键键值

Delphi 计算程序运行时间

Delphi 试试带参数的 exit

winapi 字符及字符串函数(14): chartooem、oemtochar

Delphi监控文件夹

获取网络日期

Delphi 数据库处理密码防止sql注入

Delphi listview1 中添加check选中事件

Delphi 字符串截取

Delphi treeview添加背景图片

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

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