1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | 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 ; |
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· .NET Core内存结构体系(Windows环境)底层原理浅谈
· C# 深度学习:对抗生成网络(GAN)训练头像生成模型
· .NET 适配 HarmonyOS 进展
· 手把手教你更优雅的享受 DeepSeek
· AI工具推荐:领先的开源 AI 代码助手——Continue
· 探秘Transformer系列之(2)---总体架构
· V-Control:一个基于 .NET MAUI 的开箱即用的UI组件库
· 乌龟冬眠箱湿度监控系统和AI辅助建议功能的实现