同花顺盘后日线数据读取

很长时间没有用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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2360  2017-02-03 17:16  Uths.dfm

     文件       4091  2017-02-03 17:14  Uths.pas

----------- ---------  ---------- -----  ----

                 6451                    2