procedure TForm23.Button4Click(Sender: TObject);varpstr: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;