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;
，