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中输入框不能输入初数字意外的字符串的函数（isnumeric）

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi 取pe文件的引入表和导出表

Delphi什么是thttpclient？

Delphi 清除字符串两边空格或指定字符

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi new 为指针分配内存空间

Delphi从网上获取北京时间

vclzip 3.10.1的简单使用示例

Delphi 判断时间是否是下午 dateutils.ispm

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

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