RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

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

作者:admin 来源: 日期:2018/1/13 20:27:14 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料