开发工具:
文件大小: 104kb
下载次数: 0
上传时间: 2019-04-10
详细说明： //读取文件函数 function ReadFile1(FileName:String):boolean; var sFileName: string; f: TfileStream; ED_Data: array[0..2048] of char; lRet: integer; lOffset: Longint; lOrigin: Word; i,count:integer; begin sFileName:=form1.opendialog1.FileName; f := TfileStream.Create(sFileName,fmOpenRead); try f.Seek(lOffset,l Origin); //文件定位，从lOrigin开始移动lOffset begin lRet := f.Read(f,count); //lRet为实际读到的字节数，ED_Data为读到的内容 form1.Memo2.Lines.LoadFromStream(f); j:=f.size div 1024; //计算文件一共有多少个包 // form1.suimemo1.Text:=strtohexstr(ed_data[count]); Application.ProcessMessages; begin for i:=0 to j do begin form1.Label1.Caption:=正在读取第 +inttostr(i)+ 包 ; form1.Memo1.Text:=form1.Memo1.Text+ midstr(strtohex(form1.Memo2.text),2048*i,2048)+ ; //Progressbar进度栏 form1.ProgressBar1.Max :=j; form1.ProgressBar1.Min:=0; form1.ProgressBar1.Position := i; Application.ProcessMessages; end; // form1.memo2.clear; showmessage(成功读取+inttostr(i)+个包); Application.ProcessMessages; end; end; finally FreeAndNil(f); Application.ProcessMessages; end; end;
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
