Delphi 用文件流读取文本文件字符串的方法
2023-09-27 14:29:11 时间
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;
相关文章
- Win7系统中如何查看当前文件被哪一个程序占用了
- Deepin-安装(读写文件)权限
- 下载远程(第三方服务器)文件、图片,保存到本地(服务器)的方法、保存抓取远程文件、图片 将图片的二进制字节字符串在HTML页面以图片形式输出 asp.net 文件 操作方法
- c#打包文件解压缩 C#中使用委托、接口、匿名方法、泛型委托实现加减乘除算法 一个简单例子理解C#的协变和逆变 对于过长字符串的大小比对
- AndroidStudio中添加第三库文件的方法
- Laravel将Word文档转化为pdf文件
- Linux之指令 重定向 文件覆盖>和文件追加>>
- C#【通用方法】ini文件的读和写
- 你没有权限在此位置保存文件请与管理员联系的解决方法
- Linux:使用bash删除目录中的特定文件
- 将Java程序作成exe文件的几种方法【转载】
- python处理txt文件常用方法总结
- 《Hadoop MapReduce实战手册》一2.7 设置文件冗余因子
- android下大文件分割上传
- Devc++读取不了当前目录下的文件的解决方法
- jacob下载问题, Office word 此文件正由另一应用程序或用户使用的解决方法
- Eclipse将引用了第三方jar包的Java项目打包成jar文件的两种方法[转]
- 附加没有日志文件的数据库方法
- 使用fuser命令kill一个终端(特殊文件)的方法
- Linux下*.tar.bz2等文件如何解压--转
- 文件下载文件名包含中文时,乱码的处理方法(url编解码)
- vue:用一个文件配置全局常量/方法和全局组件