开发工具:
文件大小: 2kb
下载次数: 0
上传时间: 2017-02-04
详细说明： 很长时间没有用D7,但是小应用原生代码还是要转回到D7.这两天在看同花顺和通达信，下载后的盘后数据下载想直接导入EXCEL。参考网上的同花顺数据格式介绍，下面的代码用于在TMEMO控件中显示文件头和文件内容。长时间不用D7,生殊处请见谅。 procedure TForm1.btOpenClick(Sender: TObject); var TM:TMemoryStream; FHard:TDayRec; PColDef:PByte; s,i:integer; tmp:Dword; begin if OpenDialog1.Execute then begin FName:=OpenDialog1.FileName; tm:=TMemorystream.Create; try tm.LoadFromFile(FName); tm.Read(FHard,sizeof(TDayRec)); Memo1.Lines.Add(format('数据记录总数:%x / %d ',[fhard.rows,fhard.rows])); memo1.Lines.add(format('数据记录内容开始地址:%x / %d ',[Fhard.StartAdd,Fhard.StartAdd])); memo1.lines.add(format('每条记录的长度:%x / %d ',[FHard.RecordLenght,FHard.RecordLenght])); memo1.lines.add(format('每个记录的列数:%x / %d ',[Fhard.ColNum,Fhard.ColNum])); fhard.StartAdd:=sizeof(TDayRec)+fHard.ColNum*4; memo1.Lines.add(format('数据记录内容真实开始地址:%x / %d ',[Fhard.StartAdd,Fhard.StartAdd])); s:=FHard.ColNum*sizeof(TRecordDefine); GetMem(PColDef,s);; try tm.Read(PColDef^,s); for i:=0 to Fhard.ColNum-1 do begin tmp:=PDWordArray(PcolDef)[i]; //tmp:=PDword(integer(pcoldef)+i*4)^; memo1.Lines.add(format('列 %d: %x , 列长度:%x',[i,tmp,TColdef(tmp).ColLength])); end; finally freemem(PColDef); end; finally tm.Free; end; end; end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
