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;