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防止同时出现多个应用程序实例

Delphi写的简单的文件的打开和关闭

Delphi程序删除自己

indy断点续传

Delphixe ansi字符串utf-8编码判断

Delphi winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形

Delphi检测用户超过5分钟没有操作键盘或鼠标

Delphi http 常见异常状态及Delphi idhttp 控件处理方式

Delphi中使用 twebbrowser 编辑网页

Delphi 2009 indy10 idhttp get 中文出现乱码的问题

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

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