Delphi 用文件流读取文本文件字符串的方法

本文整理自网络，侵删。

 
procedure TForm23.Button4Click(Sender: TObject);
var
pstr:Pchar;
mestr,Str1:string;
FS:TFilestream;
meint,PoStr,I,LenStr:integer;
Fpos:Int64;
TT,IsDay:Boolean;
Liststr:TStringList;
begin
  if not Self.OpenDialog1.Execute then Exit;
  FS:=TFileStream.Create(Self.OpenDialog1.FileName,fmOpenRead);
  meint:=1024;
  getmem(pstr,meint);//申请字符指针内存
  TT :=False;
  I:=0;
  Liststr :=TStringList.Create;
  try
    while not TT do
    begin
      Fpos:=I*meint;
      FS.Position:=Fpos;
      fs.Readbuffer(pstr^,meint);
      if True then
       
      mestr:=pstr;
      SetLength(mestr,meint);
      Liststr.Text:=mestr;
      if i=0 then Self.Memo1.Text:=Liststr.Text;
      Self.Edit1.Text :=IntToStr(Liststr.Count);
      i:=i+1;
      if i>2 then TT :=True;
    end;
  finally
    freemem(Pstr);//释放内存
    FS.Free;//释放流
    Liststr.Free;
  end;
end;
 

相关阅读 >>

Delphi启动/停止windows服务,启动类型修改为"自动"

Delphi取得当前目录的上一级目录

Delphi中用idhttp获取json数据乱码问题

Delphi 本地数据库备份与还原(Delphi)

Delphi 合并动态数组

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi 实现代码重启android app

获取剪贴板文字内容的代码

idtcpclient和idtcpclient 主要属性和方法

Delphi tstringlist的delimitedtext的空格问题

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

转载请注明出处：木庄网络博客 » Delphi 用文件流读取文本文件字符串的方法